RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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: 1 1 ZTITLE "Dige ate and M ial a3 12 gommand Line information.' 

3 ¢ § MODULE DOO "8 ( IDENT = 

3 Pp ZBLISS32C, ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE 

; : : NONEXTERNAL = LONG-RELATIVES J 

4 = 

: 8 : BEGIN | 
: 3 43 : i eeeeeeeeeeeeeeeeeeeeeeeeneeeeeeeeeerereeteeeeeereneeeneeeeeeeeeneeeeeeeerene | 
; e : 

> 10 10 1 i COPYRIGHT (c) 1978, 1980, 1982, 1984 BY » 
oF 011 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. « 
3 \§ Big ; - ALL RIGHTS RESERVED. : 

; 014 1 i* THIS SOFTWARE | Is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

3 15 015 1 !* ONLY IN ACCORDANCE WITH THE TERMS $ LICENSE AND WITH THE * 

3 16 Bei8 7 oe & ] OF vie ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR E * 

; 17 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

3 18 0018 1 !* O ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

; 1 805 : 7 TRANSFERRED. ® 

° .* 2 

; $3 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

3 ¢ 00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 

; 36 38 ? : :* CORPORATION. * 

4 ‘® ® 

3 5 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

; 26 0026 1 !* SOFTWARE ON EQUIPMENT WHICH 1S NOT SUPPLIED BY DIGITAL. * 

ae 0027 1 is . | 
a 0028 1 !« 7 
: $0 0029 1 lee e aera aera eee eee RAAT AATTAATAAAAKAA Eee eee eee ee 
3 0 0030 1! 

; 1 0031 1 !+¢ 

3 3 +4 § ! FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 

: 3 sit ' : ABSTRACT: Digests and distributes options specified to RUNOFF. 

: 3% 0036 1: 

3 i $24 : ENVIRONMENT: Transportable 

: 39 0039 1 | AUTHOR: R.W.Friday CREATION DATE: September, 1978 
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SBTTL ‘Revision History’ 
MODIFIED BY: 


Daraee Sadek memperk Oe Plates biAdE OE and lone 3 teak OEE 0 ee 
uppor 0 cku and move nto ° 
This diag flag Ses set by /BEC_INTERNAL=OUTPUT_LINE_NUMBER, 


063 —-REM00063 Ray Marshall 10-Apr-1984 
Changed the referenct to the string terminator module for the 
LNO1 font load sequence from ST to ANSISST. 


C62 REM00062 Rey Marshall —3-4-April-1984 
Changed the NOHEADER qualifier back to the way it worked before 
-- it now will only suppress the OSC escape sequences, but 
not the other escape sequences. 
Added logic to force the output of a <FF> record after all of 
the normal LNO1 escape sequences. This is done by magic: 
we increment PHAN_LINES_TP, and Later on the new page gets 
thrown. This method also makes sure thac the proper number 
of Lines are output on the first page. If we write the 


FREREREER 


—OOONOA UE AR$ O OONOUE WH" 
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fale lolololoelejojelolo! 
PPPS 


0060 
formfeed ourselves (herein), we end up with one more Line 
on the first page then was requested (or gaps tee’ 

0 = 


06 We also reduced the automatic /DOWN=3 to /DO for LNO1 
0064 output files. As before, this automatic value will be 
0065 overriden by any user specified value. 

0067 

Made still more changes to the implementation of CNOJHEADER. 
0069 It seems that we do want to redefine the fonts, but just 
0070 not load them. Also, the logic was modified to ouperess 
0071 the building of the font module name strings if NOHEADER 
po78 was specified. 
007 Reformatted some the code around the LNO1 processing to make 
Boe it read easier and take up fewer Lines. 
007 060 REM00060 Ray Marshall 5-December-1983 
007 Made the NOHEADER parameter suppress everything between and 
0078 including the two OSC escape sequences. This is an LNOQ1 
0079 feature. 
0080 Also added RNO$V_LNO1_LOAD to control the writing of the OSC 


escape sequence that actually causes the loading of fonts. 


059 REMO00S9 Ray Marshall 22-November-1983 
Made final (for now) changes to the LNO1 output. It now 
conforms to what both VAS and LNO1 development groups 
say it should be. 


058 REMO0058 Roy Marshall 18-November-1983 
Made more changes to the LNO1 output. Amoung other things, 
all DSR_ strings were changed to DSR$. 
Also fixed a slight bug in the output for the EXTRACT. 


057 KFA00057 Ken Alden 11-Oct-1983 
Made LNO1 margin fix. 


056 KFA00056 Ken Alden 10-0c t-1983 
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Fixed 055. 


055 KFA000SS Ken Alden 07-0ct-1983 
Added gca_cmd_pages to flag the /PAGES qualifier. 


054 REMO00054 Rey Marshall 4-0¢t-1983 
Correct LNO1 font loading sequence. ‘The OSC sequence has 
been redefined by VMSland. Also, the names of the modules 
to be extracted tron the symbiont's text Library have been 
changed from COU72... to DSR_F 
module name has been changed from FL to DSR_FONT_LOAD. 


053 KFA00053 Ken Alden 12-Sep-1983 
Added functionality to LNO1 output since the user 
may now elect to suppress the |n01 header output(symbiont 
information). 


ONT_... and the font loading 


052 KFA00052 Ken Alden 18-Aug-1983 
Fixed a logical name translation ove aten brn file names. 


KAD00044 
/DEVICE=FLIP does not assert gca_bix and gca_btc. 


043 KAD00043 Kotte Dawson 4-May-1983 
For LNO1 output, in 
escape sequence. 


tially issue Default Font Invocation 


9 
35 
e 
08 
04 
05 
0° 
08 
09 
0 
1 
§ 
i 
5 
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7 
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9 
0 
1 
5 
i 
5 
6 
7 
8 
9 
0 
1 
g 
35 
36 
7 
8 
9 
0 
1 
: 
i 
5 
6 
7 
8 
9 
0 
1 
: 
4 


4, 
5 
i 
OB 
1 9 
1 10 
: 13 
: O13 
1 0114 
1 8 15 
1 16 
: 8 + Problem was in using an outdated XPORT macro. 
§ 0119 051 KFA00051 Ken Alden 28-Jun-1983 
0120 /QUICK processing now just calls SETQUICK (false). 
2 8 1 The routine SETQUICK is now located in this module. 
3 0 : 050 KFA00050 Ken Alden 24-Jun-1983 
0124 Deleted some of Ray's logic in setting setquick to 
2 0125 prevent making a .mem file on the first run of a /auto 
8 $ file, regardless of whether it had an old brn file or not. 
0138 069 —_-REMO0049 Ray Marshall __22-June-1983 
0129 Modified logic around call to REABRN. That routine now 
3 0130 validates the BRN and if invalid, will set GCA_OLD_BRN_EXISTS 
3 0131 to be false. Therefore, we must test it ogetn after returning 
3 at § from REABRN to determine /QUICK & /AUTOMATIC processing. 
4 4 048 KFA00048 Ken Alden 14-Jun--1983 
; 5 /AUTOMATIC now implies /CROSS. 
61 $ 047 KAD00047 Keith Dawson 22-Jun-1983 
Z : 3 For LNO1, make the user's /DOWN value override if specified. 
4 140 046 KAD00046 Keiss Dawson 25-May-1983 
4 141 Minor changes to LNO1 Font Assignment escape sequence 
? 106 due to updated microcode. 
4 O14a 045 KAD00045 Keith Dawson 16-May-1983 
4 0145 /DEVICE=FLIP again asserts gca_bix and gca_btc. lost call 
2 3166 to PUTRTY (for .BFL-initialization information) reinserted. 
4 148 044 Keith Dawson 11-May-1983 
5 149 
H 130 
: 1 
3 188 
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042 KAD00042 Keith Dawson 18-April-1983 
Minor tweaks to LNO1 output: issue escape sequence to 
return to top of page. Do not quote font names. Set the 
values of /RIGHT and /DOWN (unless the user gave values 
for them) to move LNO1 output off the upper-left of the 


paper. 
Remove all LNO1 conditionals. 


041 KAD00041 Keith Dawson 14-April-1933 
/CROSS now ==> /INTERMEDIATE. Bit gca_expand_cref is not 
turned off if no pre-existing .BRN. 


040 KAD00040 Keith Dawson 11-April-1983 
Added support for new termination error messages for 
information written to .BRN file. This involved adding 
another formal to the RGH routine; this third formal is 
TRUE or FALSE, as the caller determines whether or not to 
increment the count of information written to the .BRN file. 


G2. 09 09 C9 09 09 09 09 09 09 SI NINSI NSISININI NIN IO AAA AAAAAOOUIUINIVIN 


039 KAD00039 Keith Dawson 88-Apr-1983 
Make /NOCROSS the default. 
038 KAD00038 Keith Dawson 7-Apr-1983 
Consolidate support for SETQUICK routine (which is in 
DOAUTO). Do not try to open old .BRN file if input 
file is a terminal. 
037 KAD00037 Keith Dawson 5-Apr-1983 
Full support for /CROSS and /AUTO. 
036 REM00036 Ray Marshall 4-April-1983 
Added support for /DEBUG=(CROSS,SAVE). 
035 KAD00035 Keith Dawson 21-Mar-1983 
Added LNO1 support. Got rid of /OVERPRINT. 
% 034 KAD00034 Keith Dawson 20-Mar-1983 
Removed all references to .BIX and .BIC files. 
9 033 KFA00033 Ken Alden 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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RSBTTL "Module Level Declarations’ 


3 


3 1 

; Br 

3 $7 1 } ; TABLE OF CONTENTS: 

; 205 § ! REQUIRE ‘REQ:RNODEF'; ! RUNOFF variant definitions 
: ms 5 1 FORWARD ROUTINE 

; 208 : 1 DOOPTS, 

; 209 0 1 setquick : NOVALUE, 

3 19 0 3 : write_ln01l_info : NOVALUE; 

3 \¢ 40 1 ! INCLUDE FILES: 

s 1 1. 3 8 

: 214 4 1 

3 \? 8 rh 1 LIBRARY ‘NXPORT:XPORT'; ! XPORT Library 

: 17 U 0345 1 XZIF DSRPLUS %THEN 

; 218 U 0346 1 LIBRARY ‘'REQ:DPLLIB'; ! DSRPLUS BLISS Library 
: 4 beak 1 ZELSE 

; 20 0348 1 LIBRARY 'REQ:DSRLIB'; ! DSR BLISS Library 

; si 0349 1 XFI 

3 ¢ 0350 1 

3 § 0351 1! 

: 4 Beg 1 ! MACROS 

; $$? 0353 1! 

: 6 0354 1 MACRO 

3 ssi m 0355 1 erm_t (rnfcode, str_descr) = 

; 228 m 0356 1 ' This macro, ERM_T, is used to output as part of an error message a 
; $67 m 0357 1 ! string described by an XPORT string descriptor. 

: 230 m 0358 1 BEGIN 

; 231 m 0359 1 BIND 

3 $36 M0360 1 temp = str_descr : S$STR_DESCRIPTOR (); 

: = M0361 1 erme (rnfcode, .temp CSTRSA_POINTER], .temp CSTRSH_LENGTH], .semcod) 
3; 234 M 0366 1 END 

$ gee 0363 1 %; 

: 236 0364 1 

3 tH 0365 1! 

P 38 0366 1 ! EQUATED SYMBOLS: 

; 239 tat 1! 

; 240 368 1 

3 $e 0369 1 LITERAL 

: “4! 0370 1 escape = 27, ' Used for LNO1 escape sequences. 
; 344 Beet ! ppi = 300; ! Pixels-per-inch resolution of LNO1. 
: 45 $378 1 EXTERNAL LITERAL 

; 246 0374 1 RINTES : UNSIGNED (8); 

; 247 0375 1! 

; 248 3/8 1 ! OWN STORAGE: 

: 249 ana 

; 250 378 1! 

3 $3 $0 ' } EXTERNAL REFERENCES: 

3 $36 381 1 EXTERNAL LITERAL ‘Error messages 
: 254 336 1 RNF CEM, ! Comma expected, missing: ‘<%S> 

s 35 1 RNF COB, ' Can't open binary file 

; 28 ; 1 RNFINM, ! Illegal number value: <qualifier> 

3; 2 0385 1 RNFIVS, ! Illegal /VARIANT qualifier 


? 
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RNF TMP, ! Too many page ranges on /PAGES qualifier 
RNF TMV; ! Too many PVARIANTS \ 


EXTERNA 
fs01 : fixed string, 
fra: fixed. 357 1n9. 
ce : gca_definition, 
ct : hct definition, 


CoCD 0D 0D 
NO 


oO 
AUF WN OC OODNAUEWN (OOO NOULS W000 


spager : BLOCKVECTOR [1,page_sct_sizel, 

tpager : BLOCKVECTOR [1,page_sct_sizel, 
: REF $XPO_108 (S, 

brniob : $xP0 10B~ 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 10B (), 
1 (), 
1 : $XPO_ () 
: ffname : $STR CRIPTOR (CLASS = DYNAMIC), 'Failure filename destination 
1 fin 
1 tio 
1 on, 
1 a 
1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


rrrorororrrn 
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sca_def 


EXTERNAL ROUTINE 
bars, b 


clh, 
erm, erme, ss resultant, Q 
name, arsep, utrty, rgh, 
ZI1F BSRPLUS STHEN E - . 
reabrn, 


ce 
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vrentr, vrfind; 
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DOOPTS Digests and distributes command Line informatio 16-Sep-1984 00:15: AX-11 Bliss-32 V4.0-74 
v04-000 DOPTS == ROUTINE header 127808= 1382 ae RUNOFF .SRCJDOOPTS.BLI; _— «as 
3 90 417 1 XSBITTL ‘DOOPTS == ROUTINE header’ 
; 4 ‘19 } GLOBAL ROUTINE DOOPTS (RNO_CMD) = 
: 38 420 1 144 
3 4 Be : FUNCTIONAL DESCRIPTION: 
: 296 0403 1! DOOPTS interprets the qualifiers that the user specified 
; a4 Be : : the command Line. interention is disseminated es serious = 
: 99 0426 1! 
; Bo Be : FORMAL PARAMETERS: 
: 302 o¢ 4 RNO_CMD is the preprocessed set of qualifiers. 
: 304 04 1 { IMPLICIT INPUTS: None 
: $09 0238 : | IMPLICIT OUTPUTS: None 
: 308 0435 1 | ROUTINE VALUE: 
; 310 ets : COMPLETION CODES: None 
: 311 0438 ' SIDE EFFECTS: None 
: 313 0440 1 i-- 
; «314 0441 1 
s 315 044 BEGIN 
: 316 044 ; 
s Si7 0444 OWN 
3 $19 Reet § uaext t VECTOR CCHSALLOCATION (4)], 
; © Pr. 
Pas ay gee 
; e_ptr, 
: 322 0449 2 prse apes block : $XPO_SPEC_BLOCK, 
; $57 bees § range_error_flag; 
: 35 045¢ 2 MAP 
; 356 Be 27 § rno_cmd : REF $rno_cmd; 
; 328 0455 2 range_error_flag = 0; ! Turn it off to start with. 


RUNOFF control structures. 
! 
| 
i 
| 


] 
PT Digests and distributes command Line informatio 16-Sep-1984 00:15: AX-11 Bliss-32 V4.0-74 Page 3 
voe-000 DOOPTS == Process .RNH tite t type 18- se0-1944 99:4 3:89 RUNOFF, BR ReipooPYS:oL 144 . (5) 
H 0 04 § seer *"DOOPTS == Process .RNH file type" 
: ; 04 ; ot ., e if the user specified a RNA nput file, and if so apply special formatting rules. 
s 4 
; 4 bee) 'Get the input file "aE 
: 5 P 0461 $XPO_PARSE_SPEC ( EC BLOCK = prse spre block 
3 $29 Be88 ILE-SPEC = rniioB CIOBST_RESULTANT? ); 
: 338 0464 'Get the length and aaa of the file type 
i 336 0465 % BEGIN . - 
; 340 0466 4 
; 341 0467 4 ge = My ete - CXPOST_FILE_TYPE] : SSTR_DESCRIPTOR (); 
; 303 0468 4 ee. tength 2 ene te [ST LENGTH; 
: 34 0469 4 type- “ptr = ase C TREA *POINTERI: 
> 344 0470 ; 
; 345 0471 
; 346 047 IF .type length EQL 4 
g Ser 047 THEN ! 
> 348 0474 'Check further to see if the type is '.RNH'. 
3: 349 0475 4 BEGIN 
; 350 0476 4 'First convert the file type to upper case. 
B 3) 0477 4 uext_ptr = CHSPTR (u_ext); 
3 326 0478 4 
3 32 0479 4 INCR i FROM 1 TO 4 DO 
3; 354 0480 5 BEGIN 
3 399 0481 5 
; 356 0482 5 LOCAL 
s. Bor 0483 5 kahr; 
; 358 0484 5 
3. Bey 0485 5 kahr = CHSRCHAR_A (type_ptr); 
: 360 0486 5 
; 361 0487 6 IF lower_letter (.kahr) 
; we 0488 5 HEN 
3; 3 0489 5 CHSWCHAR_A (upper_letter (.kahr), u_ext_ptr) 
; 364 0490 5 L 
s 369 0491 5 CHSWCHAR_A (.kahr, u_ext_ptr) 
> 366 0492 4 D; 
3; 367 0493 4 
; 368 0494 4 u_ext_ptr = CHSPTR (u_ext); 
> 369 0495 4 
; 370 0496 4 IF CHSEQL (4, .u_ext_ptr, 4, CHSPTR (UPLIT ('.RNH"))) 
; Br 0497 4 THEN ! 
3; Sle 0498 4 'It is a .RNH input file. 
; $7 0499 5 BEGIN 
: 374 0500 5 het Mee = false; ‘No page headers wanted, 
; aS 0501 5 phan -paging = fa lse e; iDon't divide document into pages. 
; 376 b206 5 phan_cm -b3ging = faise; - 
: 5377 0503 5 sca_rm = iSet right margin to 72. 
; 378 0504 5 aca “twidth = 72; bese 
; 144 0505 4 
3 320 0506 3 
; «381 0507 2 END; 
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ZSBTTL "DOOPTS -= Process /PAGES switch’ 
if .arno.ced Crno$h_pages] GTR 0 
'User did specify some pages. 

BEGIN’ te 


LOCAL 
ira : VECTOR (4); 


'Set up Gummy fixed string, so other routines can do parsing. 


MAP 
ira : fixed string; 


fs_start (ira) = .rno_cmd Crno$a_pages); 
fs-next (ira) = .fs_sfart (ira); 
gca_com_start = .fs_start (ira); ' Hack needed to tell the error 
! message handler where the 
! start of the string is. 
fs_maxsize (ira) = .rno_cmd Crno$h_pages); 
fs_length (ira) = .fs_maxsize (ira); 


, 


'Initialize working string. 
fs_init (fs01); 
kens (); 

‘Collect List of pages. 

INCR 1 FROM 0 TO (max_page_ranges - 1) DO 


‘ple to get a page number. 
ee, parsep (ira, spager C.i, sct_typ]) 


— FALSE Invalid page number. 
Wot ls poet number. Attempt to pick up a terminating page. 


BIND 'Clear terminating page. 
x = tpager [.i, sct_typ] : VECTOR; !... 


INCR i_ FROM 0 TO (page_sct_size - 1) DO !... 
x C.i] = 0; 


gca_orange_cnt = .i + 1; ‘Remember page-range count. 
IF .khar NEQ rintes 
THEN 


‘The parse of the initial page did not exhaust the entire 
‘List of pages. If a ‘:" follows, a terminating page must 
‘have been given. Otherwise, there must be a ',' t 
nintrosvee a new page. 


ie) 


'For PDP-11: r cognize or 
0 r 


e ' : as range-indicator. 
IF .khar EQL 2C°: R .kha pt a 


EQL 


p= ottrerntreeesereree ventana ener : 


=) 
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DOOPT Digests and distributes command Line informatio 1b-sep-19 4 90: 13:30 AX-11 Oi feat oS ab be 
v04-0 DOOPTS == Process /PAGES switch 14-Sep-1984 15:06: RUNOFF ..SRCJDOOPTS.BLI; 
; 440 565 THEN 
; 441 98 'A peru page number has to follow. 
3; 444 6 Attoney to pick it up. 
bed 0 89 6 + 'Skip th 
: cns (); : Se *s" 
BHO Mp ae 2 
; parsep (ira, tpager C.i, sct_ 
447 0578 THEN _ = 
: 448 0575 6 RETURN false 'Bad or missing page number. 
> 449 b2oe 5 END; 
: oy ane 8 'Got the terminati b full 
: 'Go e terminating page number successfully. 
; rt §a99 : 'See if another page eanee might follow. . 
; 45 0578 5 IF .KHAR EQL RINTES 
> 454 0579 5 EN 
: 455 0580 5 EXITLOOP; ‘Nothing left. 
> 456 0581 5 
: 457 0582 5 'Something still there after the Last page number. 
: 458 0583 5 IF_.khar EQL %C"°," OR .khar EQL 2C';' 
3; 459 0584 5 THEN 
: 460 0585 5 ‘Yes, there should be another. For now just skip the ',". 
; 461 0586 5 'The next pase through the loop will get the next one. 
$ 188 0587 6 kens ( 
>; 46 0588 5 ELS 
: 464 0589 5 'Tell_ user a comma is (probably) missing 
: 465 0590 6 BEGIN ; 
; 466 0591 6 erm (rnfcem, .fs_start(ira), .fs_maxsize(ira)); 
> 467 $354 6 RETURN false; 
> 468 0593 6 END 
> 469 0594 6 
; 470 0595 5 END 
> «471 0596 5 
: 472 0597 4 ELSE : 
: 473 0598 4 'The List of pages has been completely scanned, and everything went ok. 
3; 474 0599 4 EXITLOOP 
: 475 0600 4 
: 476 0601 3 END; 'End of Loop. 
: 477 Bone 3 : 
3; 478 0603 3 'Be sure the user did not specify too many page ranges. 
: 479 0604 IF .khar NEQ rintes 
: 480 0605 THEN = 
: 481 0606 ‘User geect# ted too many page ranges. Give up. 
: 48 0607 4 BEGIN 
3 ret +44 4 erm (rnftmp, 0, 0); 
; 4 609 4 RETURN false; 
3: «4485 0610 END; 
: 486 0611 
3; 487 bei§ IF .rno_cmd Crno$h_pages] GTR 0 
: 488 061 THEN - 
; 489 0614 gca_cmd_pages = true; ‘Set a flag saying that user said /PAGES 
; rs Rei? 3 gca_skip_out = true; 'Start with output suppressed. 
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33 


i 
H $3? oi? ZSBTTL "DOOPTS == Process /AUTOMATIC switch’ : 
; 495 U $19 ZIF DSRPLUS %THEN | : 
; 496 U 0620 : 
; 497 U 0621 ! /AUTOMATIC switch : 
; re 8 ¢ gca_black_box = false; ! Assume /NOAUTOMATIC : 
; $00 U 0624 SIF ZBLISS (BLISS32) XTHEN : 
3; wl U 0625 IF_.rno_cmd Crno$v_automatic] : 
: be U 06 § THEN ; 
> 50 U 06 BEGIN : 
3 Be U 0628 gca_bix = true; ‘ 
3 Jee U 0629 gca_btc = true; ‘ 
; 208 u 0630 gca_cmd_btc = true; ‘ 
; 507 U 0631 gca_black_box = true; ‘ 
; 508 U be ¢ rno_cmd ([rno$v_intermediate] = true; ' Force generation of a BRN file ; 
H 298 U 06 rno_cmd [rno$v_cross_reference] = true; ! Turn on cross referencing. ‘ 
, 310 U 0634 END; ‘ 
: St U 0635 XFI | ; 

| 


= 


“— 
NOUS WP OODDNAOULS WN 2OOONOUEW Su 
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Digests and distributes command Line informatio hese -1984 00:15:30 AX-11 Bliss-32 V4.0-74 Pa 12 
DOOPTS -- Process /AUTOMATIC switch 1278 08-1 3b ree RUNOFF .SRCJDOOPTS.BLI; = (8) | 
° § ZSBTTL "DOOPTS -= read crossreference information from old .BRN file’ | 
; 8 gca_old_brn_exists = false; ! Assume it doesn't. 
¥ ree IF ( .gca_black_box OR .rno_cmd Crno$v_cross_reference] ) 
U ets ( .rniiob CIOBSV_TERMINAL] ) 
U 064 THEN ! /AUTOMATIC or /CROSS_REFERENCE 
U 0644 BEGIN 
U 0645 LOCAL 
U 278 status; 
¥ ot $XPO_IOB_INIT (I0B = brniob); 
: 0643 Check to see if an old version of the BRN file exists. 
U 0691 Status = $XPO_OPEN ( 108 = brniob 
U 06 § » FILE_SPEC = ‘.BRN’ 
U 065 » RELATED = rniiob CIOBST_RESULTANT] 
U 0654 » OPTIONS = INPUT 
U 0655 . ATTRIBUTES = BINARY 
U 2928 » FAILURE = 0); 
U 065 IF .status 
U 0658 
U 0659 
U 0660 2 ; 


gca_old_brn_exists = true; 
END; 

| 

| 

| 

j 
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poor] Digests and distributes command Line informatio 16-Sep-1984 00:15: AX-11 Bliss-32 V4.0-74 Pa 13) 
Vv $00 DOOPTS =- Process /AUTOMATIC switch 1 730071382 99: b8i09 RUNOFF. ReIDOOPTS.BLI; = (9) | 
: $39 y ss) Xsbttl "DOOPTS == Process /CROSSREFERENCE switch’ | 
; re : 2o7 mm gca_expand_cref = false; ! Assume we won't expand. 
; rk U 0665 i /NOCROSS is overridden by /AUTO. So we don't allow users to say /NOCROSS 
> 544 U 006 ! and /AUTO to produce a complete document, but without cross-references 

; *? re expanded. 
4 éf e ees /CROSS turns on /INTERMEDIATE as well, unless the user said /NOINTER. 
3 th) . 14 gca_cross_reference = ( .rno_cmd [rno$v_cross_reference] OR .rno_cmd Crno$v_automatic] ); 

: i U o8 IF .gca_cross_reference 

$ ¢ U 0674 THEN 

i 933 U 0679 BEGIN ! User said /CROSS_REFERENCE or /AUTO. | 
: 555 U oer) gca_expand_cref = true; ! So expand cross references. 

; 556 U 0678 

3 Sor U 0679 !eenew 

; 558 U 0680 ! The se) Loving logic will force generation of a BRN file unless 

3 228 , bens } /NOINTERMEDIATE was explicitly specified. 

: 561 U 068 rno_cmd Crno$v_intermediate) = 

3 266 U post (.rno_cmd Erno$v_intermediate] 

; U 0685 

3 208 : bee NOT .rno_cmd [rno$v_s_intermediate)); 

: 566 U 0688 ZIF ZBLISS (BLISS32) XTHEN ! Multi-pass logic only for BLISS32. 

; 567 U 0689 IF .gca_pass_count EQL 1 

; 568 U 0690 : 

; 569 U 0691 BEGIN ! First pass. 

; 570 U 8636 xFI 

; $71 U 069 

3 276 U 0694 ! If there is an “‘old’’ BRN, validate it. If valid, read it. 

; re U 0695 

; 574 U 0696 IF .gca_old_brn_exists THEN 

3 2? ¥ 944 reabrn 7); ! Read in existing BRN file. 

: 378 U 0699 2 XIF XBLISS (BLISS32) XTHEN 

; 578 U 0700 : 

; 579 U 0701 ! If there wasn't an “‘old’’ BRN (or REABRN found it to be invalid), 
; 580 U 44 ' and /AUTOMATIC has been asserted, set /QUICK and initialize 

; 581 U 20 i automatic operation. 

; 358 U roe f IF NOT .gca_old_brn_exists AND .gca_black_box 

; 584 U 706 IF .gca_black_box 

; 585 U 070 THEN ! User said /AUTOMATIC. 
; 289 U 0708 BEGIN 
3 14 4 setquick (true); ! Pretend user said /QUICK. | 
: 389 U 0711 IF .gca_rerun_count EQL 0 

; 590 U ar THEN 

; 591 U 071 gca_rerun_count = 1 ! Need a second pass at input file. 

: 3 U 0714 END 

; 59 U 0715 END; 
3: 594 U orig 2FI 

; «595 U 071 END; 
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T igests and distributes command ine informatio 18-5e Sep-1 5: AX-11 Bliss-32 V4.0-74 P 4 
yOe-000 DOPTS =e Process PAGTOMATIC cuite r3een FRE 98:d8:8) = Hanae de fodseye br 709 age of} 
3 U 071 
: 3 U 07 -gca_old_brn_exists 
g ie U 07 a then? Aa ' Old BRN file exists and is open. 

: 200 U i SXPO_CLOSE (10B = brniob, OPTIONS = REMEMBER); | Close it and remember its name. 


e3 


H 8 
sts and distributes command Line informatio 16-Sep-1984 215: AX-11 Bliss-32 V4.0-74 
TS == Process /INTERMEDIATE switch 12-808- 1382 90: 3i89 YRUNOFF $Re pooPYS oct ates 


7 
| 
° 
¢ | 
3 ZSBTTL ‘DOOPTS -- A og babi pens pny switch’ 
: F .rno_cmd Crno$v_intermediate | 
| 
| 
| 
1 
1 


AND wor 
(.rno_cmd (rno$v_4_out_format] EQL op_dev_flip) 
THEN 
‘User said /INTERMEDIATE (and is not generating FLIP output). 


'So we will open a .BRN file and write both indexing and contents 
: information into it. 


status; 
! Open the output BRN 
status = SXPO_OPEN ( rnoob 
EC = rno_ cmd Crno$t_intermediate] 


brn 

PEC 

, o 4", 

= rniiob StONSt FESTA 
= 

S$ =z 

UTE 


vuvUvUvU 


re foousten 
TES = BINARY ); 


sf “Pr we. 


f 
10 
FI 
DE 
RE 
FA 
oP 
At 


IF NOT .status THEN 
BEGIN 


erm_t (rnfcob, ffname); 
RETORN false; 


WNP NINPININPININYDN 2 OO OO ee 
WN "SO CONOAUES WN —OOONOULSWN oO 


'Now that the file has been opened successfully, initialize it 
we a BRN header record. 


AL 
* temp : VECTOR (2); 


‘Write the .BRN File Identification Record Group. It identifies the 
‘format of the .BRN file, and of the indexing, contents, and cross- 
‘reference information in it. This lets INDEX, CONTENTS, and DSRPLUS 
;decide if they are prepared to read this format. 


temp (0) = brn_file; 
temp 1] = brn_icent; 
these 


PUN OSR VOUS 


iwrite records as the first information in the file. 
$XPO_PUT ( I0B = brnoob, BINARY_DATA = (2, temp) ); 


‘Write a Record Group Header for Indexing information. 
! Do count this record in the .BRN count. 
rgh (brn_index, 1, false); 


iadd the New .BIX File Record Group. 
temp 0] = new_sequence + (index_format*(%BPVAL/2)); 


$XPO_PUT ( 10B = brnoob, BINARY_DATA = (1, temp) ); 


‘Write a Record Group Header for Contents information. 
' Do count this record in the .BRN count. 


he 
( 


LLOSLAAAAP A.D... HOMO DOP... O-O--O-- o 


ye ot ot a? at ot ot ot ot ot et et et et ee et 


GPOACOAOAO 
MAAN 
ONO VUEW—OOOnNOu 
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—~ 
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3 $28 : rgh (brn_contents, 2, false); 

: 661 782 4 iadd New .BTC File Record Group. 

: 66¢ 7 - 4 temp fo§ = maj_new_toc; . 

3 oer 4 : ? temp = toc_format; 

: 665 , 6 4 $XPO_PUT ( I0B = brnoob, BINARY_DATA = (2, temp) ); 

: 66 788 4 ‘Write a Record Group Header for Cross-Reference information. 
; 668 0789 4 !' Do count this record in the -BRN count. 

3 rg grey ? rgh (brn crossref, 2, false); 

: 671 Ore, 4 iAdd the New Cross-Reference Record Group. 

: ore 793 4 temp 9 = new_crossref; 

s 67 0794 4 temp = crossref_format; 

; 674 0795 4 

3 of? BPS ? $xPO PUT ( I0B = brnoob, BINARY_DATA = (2, temp) ); 

: 677 0798 4 i "End of .BRN File Identification Record Group. 

; 678 0799 4 

; 679 0800 4 gca_bix = true; 'Set binary-index flag. 
; 680 0801 4 gca_btc = true; 'Set binary-toc flag. 
; 681 4 aca “cmd_btc = true; lowe 

: : END 

3 LSE 

$ BEGIN 

3 gca_bix = false; 

3 3 gca_btc = 

: 2 


ace ~cmd_btc = false; 
| 


$3 


ee ee ee ee ee em ee ee ee ed ed ed = od nd = od od 2 = d= = 


SN NNN SSS SSS SS 
POPIPONOPONUINR 


—ODOONOUS WN “OC OONOUSWwN—oO 


NN 
a 
Wr 


cceccccccccccccccccceac 


$3 


DPS SSVI ES BS BS ES ES EE EE EWAN NNW POPUININININININDN 2 SS 


00 39 OD Cd Cd Cd Cd Cd Co Gd Cd Cd Od 09 OD OS OD Od 09 CD CD Od Gd OD CS OD CD CD CD OD C9 OD CD CD 0D CD CD 09 0D CD: 
SS oo OA RU OOO NOU EWN =O OO0 SOU RUMI DOs MOUND DO IN 


ROO 
Mw 


oO 


Dd 
Dd 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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and distributes command Line informatio 1b-se -1984 00:15: AX-11 iss- 4.0-74 
-- Process /VARIANT switch 12-808-13be 9e aioe RUNOFF SRE poops outed 
ZSBTTL ‘DOOPTS <= Process /VARIANT switch’ 
ZIF DSRPLUS XTHEN 


i Hard-wire the variant "DSRPLUS", and also FLIP if the user said 
; /DEC=FLIP. 


BEGIN ‘Local definition block 
LOCAL 


temp_ptr; 
temp_ptr = CHSPTR (UPLIT (‘DSRPLUS')); 
vrentr (.temp_ptr, 7, %c' ', %c' ', 0, true); 


ZIF FLIP XTHEN 
Vien’ 20 e-0P dev EQL op_dev_flip) 


BEGIN 
temp_ptr = CHSPTR (UPLIT (‘FLIP')); 
yrentr (.temp_ptr, 4, %c*' ', %c' ', 0, true); 


ZF I 
af END; ‘End of local definition block 
IF_.rno_cmd Crno$h_variant] GTR 0 
THEN 'User did specify at least one /VARIANT. 
reek 


AL 
ira : VECTOR (4), 
gncc; 


'Fix up IRA to look Like a fixed string so other routines 
'can do some parsing. 


ira : fixed string; 
fs_start (ira) = .rno_cmd Crno$a_variant); 
fs_next (ira) = .fs_sfart (ira); 
fs_maxsize (ira) = .rno_cmd Crno$h_variant); 
fs_length (ira) = .fs_maxsize (ira); 
kens (); ‘Start the scan. 
WHILE .khar NEQ rintes DO 
fs_init (fs01); 


IF grene (ira, fs01) NEQ gnane_normal 
THE ™ 'Bad variable name. Abort entire command Line. 


N 
erm (rnfivs, 0, 0); 
RETURN false; 
END; 
IF _.vrcnt GEQ max_vr_names . , ‘ 
TIoo many variants. Abort entire command Line. 


BEGIN 
erm (rnftmv, 0, 0); 
RETURN false; 
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RWS SELENE LLL LLLP LEE 


SEE* ong Shotr toutes commend bine informatio 16-Sep-1984 90: 13:30 AX-11 Bliss-32 V4.0-74 


-Sep-1 RUNOFF .SRCJDOOPTS.BLI; 
END; 


Hoye tiee (.fs_start fete te efs_length (fs01)) EQL -1 


s is a brand new nane so. save if creche as TAYE 
vrentr (.fs Start (fs01), -fs_Length (fs01), ", 0, true) 
ELSE Ignore duplicate 


(0); 


‘For PDP-11: recogni ze ; as gf tt 1ent~seperater. 
If xkhar EQL XC°.* OR .khar EOL 


kens () 
ELS 
if ekhar NEQ rintes 
THEN ‘Garbage after the variable name. 
acgin ‘Abort the entire command Line. 


erm (rnfivs, 0, 0); 
RETURN false; 
END; 


'Skip AE AY, This is a list of names. 
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DOOPT Digests and distributes command Line informatio 18-5e Sep-1984 0 AX-11 Bliss-32 V4.0-74 Page 19) 

v04-000 DOOPTS “= Check range of aw B parameters Sep- 198 99: 08; 34 RUNOFF .SRCJDOOPTS.BLI; . eos, 

3 4g 99 ZSBTTL "DOOPTS == Check range of numeric parameters’ | 

; tg 3 IF (.rno_cmd{[rno$h_bold] LSS 0 

: 774 9 -rnc_cmdLrno$h_boldJ GTR 10 5 

: 775 94 HEN 

: 776 S32 BEGIN 

3 ake 9 38 ERM (RNFINM, Cmts ix y — ng Rad 3 tates 

; range_error_flag = cate error to force ex ater. 

: 779 O898 ENDS . 

; 780 0899 

; «781 0900 IF (.rno_cmd(rno$h_down] LSS g OR 

3 ree 4h 4 f. =cmd(rno$h_down] GTR 200 ) 

3; 7 9 § 

: 784 90 NBEGIN 

: 785 0904 ERM (RNFINM, CHSPTR(UPLIT * /DOWN® a, Faz 

: 786 0905 range_error_flag = 1; ! Indicate error to force exit Later. 

3; 7er 0906 END; 

; 788 0907 

; «789 0908 IF (.rno_cmd(rno$h_form_size] LSS 0 OR 

: 0909 -rno_cmd(rno$h_form_size) GTR 200 ) 

; 791 0910 

; #79 0911 BEGIN 

; bag ERM (RNFINM, CHSPTR(UPLIT eg denon ve SIZE')), 10); 

; 794 091 range_error_flag = 1; “Indicate error to force exit Later. 

: 795 0914 2 END; 

; 796 0915 ¢ 

: 797 0916 IF (.rno ern phe rione? LSS 0 OR 

: 798 0917 3 y rr. ~cmd(rno$h_right] GTR 150 ) 

; 799 0918 ¢ 

; 800 0919 EN BEGIN 

; 801 base ; ERM (RNFINM, CHSPTR(UPLIT <* dato" ») 

; 802 0921 range_error_flag = 1; ratcees error to force exit later. 

; 805 o36¢ ND; 

3; 804 092 

; 805 0924 IF (.rno_cmd(rno$v_s_underline] AND .rno_cmd[rno$c underline] NEQ 0 AND 

; 806 0925 4 -rno_ sie rno$c_underline] LSS 32 OR These values describe 

: 807 0926 3 -rno_cmd(rno$c_underline) GTR 125 )) printable’ characters 

; 808 base THEN 

; 809 0928 BEGIN 

; 810 4544 ERM (RNFINM, CHSPTR(UPLIT oe /UNDERL INE" »», 10); 

; 6811 0930 range_error flag = 1; ' Indicate error to force exit Later. 

Rae 

: aie 0938 IF (.rno_cmd(rno$v_s_und_ separ] AND .rno_cmd[rno$c -under line] NEQ 0 AND 

; 815 0934 4 (.rno_ cid rno$c_underline] LSS 32 OR : These values describe 

; 816 0935 3 -rno_cmd(rno$c_underline GTR 125 )) ! “printable’’ characters | 

3; 817 0936 THEN 

; 818 0937 BEGIN 

; 19 0938 ERM (RNFINM, CHSPTR(UPLIT (' es UNDERLINE')), 19); 

; 0 0939 range_error_flag = 1; Indicate error to force exit Later. 

3 1 aed ; END; 

: 8 : $94 IF (.rno_cmd(rno$v_s_und_nansp] AND rng. egatrnete underline] NEQ 0 AND | 

; $e 9435 4 -rno_cmdErno$c_under | ine 5 9, OF : These values describe 

; 5 944 3 -rno_cmd(rno$c_underline ad: 2)) ! “NONprintable”’ characters 

3 $$ 0945 $ THEN 

: 7 0946 BEGIN 
| 


AX-11 Oi leg 
RUNOFF .SRC 


m 8 
DOOPTS ~="Check ‘range of numeric parameters’ ” e-Sep-198e 19:06:61 


od ERM (RNFINM, CHSPTR(UPLIT ("/NONSPACING_UNDERLINE')), 21); 

ek: fenge.error. flag = 1; | Indicate error to force exit Later. 
83) 950 

8 g 951 IF_.range_error_flag 

8 826 THEN ! If one of the above was out 

834 095 RETURN FALSE; ! of range, we can't go on. 


‘ a 
| 


' 
/NONSPAC ING_UNDERL INE=C'*k'') /SEPARATE_UNDERLINE=C"'k'') 
+» if VT100 or LNOICe) output. 

IF (.gca_op_dew EQL op_dev_\n01 
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4-000 DOOPTS =- Process /BACKSPACE, /BOLD, & /UNDERLI 19- Sep-1984 99: 08; 34 RUNOFF .SR RC IDOOPY TS.BLI; . 1) 
H § $ Ooze ZSBTTL "DOOPTS == Process /BACKSPACE, /BOLD, & /UNDERLINE' 
; 838 0956 !Process /BACKSPACE switch' 
:; 839 9 outopt_back = .rno_cmd [rno$v_backspace); | 
; a 8328 outopt_over = true; 'Can always use Line overprinting 
: Hh 0960 'Process /BOLD switch information 
; «84 0961 gca_cmd_bld = .rno_ ane d Crnosh bold) GTR 0; !Turn off bolding if use> said /B0'.D:0 | 
> 844 0366 sca_do_Bld = .gca_c¢ bid; 
3 Be? B20? outdopt_bldn = .rnd e~ rno$h_bold); 'Copy bolding depth indicator 
; 847 0965 'Process /UNDERL INE switch information. 
; 848 0966 gca_cmd_und = .rno_cmd (rno$v_underline]; 
; rH b4 94 sca_do_und = .rno_tmd Crno$v_UnderlineJ; 
; «851 0969 IF (.rno_cmd Crno$c gyrdert tne: QL. 0) 
3 b26 0970 Ano -rno_cmd Crno$v_und_char 
3; 89 0971 “!User said /UNDERLINE:0 
; 854 097 NBEGIN ¢ 
s 83> 0973 3 gca_cmd_und = false; ‘Turn off underlining for entire document. | 
; 856 0974 3 sca_do_und = false; bees 
3 8 0975 2 END; 
; 858 0976 2 
; 859 0977 2 IF_.rno_cmd Crno$v_underline] 
; 860 0978 ¢ THEN 
; 861 0979 BEGIN 
; 862 0980 3 'Pick up information about how to do underlining. 
; 863 0981 3 outopt_und_sep = .rno_cmd Crno$v_und_separ]; ‘Put dashes on next Line. 
3 He bee ; outopt_und_nosp = .rndo_cmd Crno$v_und _nonsp); !Underline character is non-spacing. 
; 866 0984 3 outopt_und_char = 
: 867 0985 4 ( 
; 868 0986 4 IF _ .rno_cmd Crno$v_und_char] 
; 869 0987 4 THEN 
; 870 0988 4 ‘User said what character to use. 
; 871 0989 5 (.rno_cmd Crno$c_underline)) 
: 872 0990 4 ELSE : ; 
: 875 0991 4 ‘User did not spect ty the underline character, so figure it 
; are 643 ? ‘out, based on how underlining is to be done. 
: 876 0994 5 (SELECTONE true OF | 
; 877 0995 5 SET 
; 878 0996 5 C.outopt_und_sep) : ECs Ws ! Hyphen. 
; 3879 0997 2 f- -outopt_und_nosp) : ' Bell. 
: 880 0998 outopt_back, sbutopt.. over] fie '; i Underscore. 
; 881 0999 ; TES) 
; 882 1000 ); 
; 883 1001 END; 
; 884 100 
: nH 17 ‘Turn off the following command-line emphasis options ... 
; Hy 05 /BACKSPACE /UNDERLINE="'k** 


—SOo0oO 
ooono 
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pport Digests and distributes commend Line informatio 1b§ Sep AX-11 Bliss-32 V4.0-74 Page 22 i 
Vv F060 DOOPTS =- Process /BACKSPACE, /BOLD, & /UNDERLI Sep 71382 99: re 3? RUNOFF SRC IDOOPY TS.BLI; ’ 1% vos 
; 893 1011 OR .gca_op_dev EQL op_dev -\n0 le 
; 894 1 \¢ OR .gca_op_dev EQL op_dev_vt100) 
; 895 101 THEN 
; 89 1014 BEGIN 
: 1015 outopt_und_char = 0; ' No underline character. 

98 1 \$ outopt_und_ -nosp = false; i No ewes we be underlining. 

899 101 outopt_und_sep = false; i No separate ine underlining. 

900 1018 outopt_back = false; i se n' *t use backspace characters. 

901 1019 outopt_bldn = 0; i Don't do bolding by overprinting. 

902 1020 2 END; 


63 sts and distributes congeng Line informatio 1?- 
$ 


Dige 
DOOPTS == Process /QUICK sw 

} ZSBTTL "DOOPTS == Process /QUICK switch’ 
1 IF_.rno_cmd Crno$v_quick] 
wg” 


setquick (false); 


so-198e 00:38 3 


9 | 
Doors, —«=«éLGEEES and distributes command Line informatio J8-Sep-1984 99:15:39  YAa1! BL is4-32_vé 0-74 rah 
RO iran pe ees caganie | 
; 318 gca, debug. index = .rno_cmd Crno$v_deb_index); | 
: $1 TR gcalatbg/tee"S'CPhattng Etnoke deb cone 
| $18 188 trrocens /ogQuGsFILES swigeh 4. 
2 i Hersey ipecomrins i, 
2: | Sami MAT eto 
: $f GRE §srrocens /ocauGsSAVE switch 


9 
ogo pigeets and distributes command Line informatio 16-Sep-1984 90: 13:30 AX-11 Bliss-32 V4.0-742 Page 25 
DOOPTS == Process /MESSAGES switch 14-Sep-1984 15:06: RUNOFF ..SRCJDOOPTS.BLI;1 (16) 
; 3 : ! 5 ZSBTTL "DOGPTS == Process /MESSAGES switch’ 
; 4 § ! $ ‘NOTE: This code relies on the bit representations of REPORT_ERR_??7??. | 
: 9 1008 $1: ae .gca_cmd_quick 
; 935 1050 :} THEN 
3; 9 1051 3 ca_cmd_msg = (1 * 1) 'If /QUICK, always report errors to user. 
. ¥ 1 ¢ sf ev ee 
3; 9 18 BEGIN 
: 424 1} : gca_cmd_msg = .rno_cmd [rno$v_msg_out] + (.rno_cmd Crno$v_msg_user] * 1); 
: 941 1056 If user didn't say /MESSAGES at all, direct them to everywhere 
3 Pa 1 IF .gca_cmd_msg EQL 0 
; 94 1 28 THEN 'User didn't say /MESSAGES, so 
> 944 105 gca_cmd_msg = %B'11'; ‘direct messages everywhere. 
; 945 1060 END; 
; 946 1061 
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F 
Digests and distributes command Line informatio 16-Sep-1984 00:15: AX-11 Bliss-32 V4.0-74 Page 26 
DOOPTS == Process change bar options. 1228681 382 99548509 RUNOFF .SRCJDOOPTS.BLI; ° 19} vO 
: = } § ZSBTTL "DOOPTS == Process change bar options.’ 
3 Be 1 oe IF _.rno_cmd Crno$v_chng_char] 
; 951 106 THEN !User specified character to be used as change bar. 
H 928 1908 BEGIN 
3 827 : 44 sca_bar_char = .rno_cmd [rno$c_change); 
; 955 1969 IF .rno_cmd Crno$c_change] EQL 0 
; 956 1070 THEN 'User is forbidding change bars for entire document. 
; 957 1071 gca_cmd_bar = false; 
; 958 4 END; 
; 959 + 4 
; 960 1074 IF .rno_cmd Crno$v_change] 
; 961 1075 THEN 'User wants change bars enabled. 
; 962 1076 2 bars (h_enable_bar); 


ve 
—y 
Wee 


ek dd dd dt I COO 
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9 
s and distributes command Line informatio 18-sep-19 4 90: 13:30 
-- Process /RIGHT, /DOWN, /SIM, /PAUSE, 14-Sep-1984 15:06: 


ZSBTTL "DOOPTS == Process /RIGHT, /DOWN, /SIM, /PAUSE, & /SEQ' 
!Process /RIGHT switch information 
per ght = .rno_cmd Erno$h_right); 
F .phan_right NEG 0 
THEN 
gca_cmd_rit = true; 


'Process /DOWN switch information 
phan_down = .rno_cmd ECrno$h_down]; 


'222 
‘Process /SIMULATE switch information 
IF _.rno_cmd CRNO$SV_SIMULATE] 
EN 'User said /SIMULATE 


phan_simulate = true 
phan_simulate = false; 


'Process /PAUSE switch information 
phan_pause = .rno_cmd [rno$v_pause]; 


!Process /SEQUENCE switch information 
gca_cmd_isq = .rno_cmd ([rno$v_sequence); 


AX-11 Bliss-32 V4.0- 
RUNOFF .SRCJDOOPTS.BL 


H 9 

Soe races /LOG, DEVICE, /DECLINTERNAL, 12-Sep-1984 15:06:01 ERUNOFF SRE SDOGPTS-BL 17 
ZRSBTTL "DOOPTS == Process /LOG, /DEVICE, /DEC_INTERNAL switches‘ 

! /CNOJLOG switch 
termination_log = .rno_cmd Crno$v_log]; 


08 


ve 
—w 


; /DEVICE switch 


i NOTE: the output device type was already picked up in RUNOFF.BLI: 
} gca_op_dev = .rno_cmd Crno$v_4_out_ format); 

iPick up LNO1 output options. 

IF (.gca_op_dev EQL ep_dev_\(n01 
=. -9ca_op_dev EQL op_dev_ln0le) 


SeSSSES3 


! Options_for LNO1 output: 


Write initial escape sequences into the .LNI output file. 


SS2333 


write_tn01_into (.rno_cmd); 


TIF FLIP XTHEN 
Can tO EQL op_dev_flip) 


BEGIN 
; Initialize the .BFL with a "new sequence’’ header. 
putrty (maj_new_toc, toc_format); 


! Turn on flags to indicate that we want Index and Contents 
information for FLIP output. 


gca_bix = true; 
gca_btc = true; 
gca_cmd_btc = true; 


ecececececececeece 
kk kd dd COO 


ae a a a a a ed dd = a a 8 8 


WE BEBE EE EE BAW WMI NIA PPI NIPINPONPONINNY 2 2 OO OO Oo 


IFI 
! /DEC_INTERNAL switch 


DWONAVS WN" OVOONOUSWN—O 


'Pick up the debugging loge 
gca_diagi = .rno_cm frnosh_dbgi}: 
gca_diag2 = .rno_cad Crnosh_dbg2); 


! If the user said /DEC=OUTPUT_LINE_NUMBER, the CLI set bit 15 of 

! the second diagnostic word. Use that word to initialize the flag 
! that controls the outputting of the output Line numbers at the 

! front of every Line of text. 

gca_cmd_osq = .diag2_15; 


Wt oy 4 oe ee 4 
=O OONOU EWN 0 OD NO UNE WIN 0 OD NO UE WIN @ O OONOAUE WR O0@ MEPWr—O 


a a ee ee ee ee ee ee ee ee eee ee 


gca_ln0l_ital_under = .rno_cmd Crno$v in01_ital under]; ! set=italics, clear=underlining 
gca_ln 1“port_land = .rno_tmd Crno$v_Tn01_port_TandJ; ! set=portrait, clear=lLandscape 


23 


oe 


tt a a a a ss ss an Ss = © ss — Ss Ss 2s ) > as 9 Ss —) ss Ls 2s > ss ss 
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9 
ts and distributes command Line informatio tbs -1984 215: AX-11 Bliss- 4.0-74 
-- Process /FORMSIZE switch information 1 ~8ep-19 4 tree RUNOFFSRE pasPYS oy. Page 26) 


ZSBITL ‘DOOPTS == Process /FORMSIZE switch information’ 
{fF grnoncad Crno$h_form_size] GTR 0 
‘User said /FORMSIZE:n. Use it either for /SIMULATE or 


'/NOSIMULATE, as appropriate. 
i gphen.siaulate 


Fe 
Si 


8 


o-—- 
ve 
“HW 


‘User said /SIMULATE, $9 the specified ai size is physical paper size 
phan_plines = .rno_cmd [rno$h_form_size 


‘User is not simulating, so spect tied form size is 
‘number of Lines ae on the page by_the spooler. 
phan_slines = .rno_cmd Crno$h_form_size]; 


‘If ee eee or want to pause at top of each page, open 
‘the stream I0Bs. 
IF _ .phan_simulate OR .phan_pause 


$XPO_OPEN (10B = tsiiob 
FILE SPEC = $XPO_INPUT, 
OPTIONS = (INPUT. OUTPUT), 
ATTRIBUTES = STREAM); 


RARRARAAARR ERE RR EER 
OWONAOULSWN OC OONOUS Wr 


vvv 


$ 
2 
2 
; Initial signals for /SIMULATE and /PAUSE 

IF .phan_simulate 

THEN 

BEGIN : ! Do not prompt in Batch (if 

3 IF .tsiiob Ciob$v_terminal)] ! controller is not a terminal). 
3 THEN 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 


T 
T 10B = tsiiob 
. PROMPT= ( 32 
» CHSPTRCUPLIT (2%STRING 
(BELL, DEL, BELL, DEL, 
{aateton paper, type a space’ 


) 


BESTS SISSIES SESESESESSSS 
MFUN —OOONOUSWN—O 


wuvuvvIrrrvuUDU 
i a a i ee a a dd do COCO 


POROPOPONONORONONY @ 2 2 tO 


Wnr—Oo0on 


SSessssscsssssss 


) 
se" CHARACTERS = 1 


OO OOO 00000009 09 09 09 09 09 09 09 09 SI NINN NINN NIA AAA AAAAAAUMIUIUNIUIVIVV 


SSSSRAVLSSSVSARANTSSSVSEARAW ASSN nowTs— Ow wor namo oo Ose aorarcano 


‘After getting the user's character, issue a carriage return. 
$XPO_PU 


SESSe 


T 108 = tsiiob 
STRING = (1, CHSPTRCUPLIT (ZSTRING (2CHAR(20'15'))))) 


oo 
Co 

~o 
vvuNvD 


j 
END; 
END 
ss ha 
-phan_pause 
THEN - 


bwait (); 


ee ee rr ee ee eS Ss 


Be Se Ge Se Se Se Se Se Ge Se Se Se Se Se Ge Se Ge Ge Ge Se Ge Ge Se Ge Ge Se Ge Ge Fe Ge se Se Se Se Se Ge Se Fe Se Se Ge SF Se Se Se FF Se Se SF Se Se Se Se Se Se Sees 


S353533 


HET, KHAR, SPAGER 
OB; RNIIOB 


EX 

“EX 

-EXTRN RNFTMV, FSO1, FRA 

*EX 

EXTRN BRNIOB,. BRNOOB, FFNAME 
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PT Digests and distributes command Line informatio 16-Sep-1984 00:15: AX-11 Bliss-32 V4.0-74 
yOe-000 DOOPT PTS == Process /FORMSIZE A information * 00-1382 90 baios RUNOFF . SRC DosPYS {OL fe Page ods 
: 1098 1209 RETURN TRUE ' i P 
? 1099 18% ¢ = BRS iEnd"o? DOOPTS”. 
-TITLE DOOPTS or geets and distributes command Line inf 
3 rmatio 
LIDENT \Vv04-000\ 
-PSECT SPLITS,NOWRT,NOEXE,2 
48 r 5 E 0000 P.AAA: .ASCII \. seal : 
4—E 52 4 E 8 P.AAB: .ASCII \.B : 
00 8 00 44 rt GF 4 F P.AAC: ASCII \7B0LD\<0> ae > : 
00 ° 00 4E 2 GF 44 F 0010 P.AAD: .ASCII \/DOWN\< : 
00 00 45 SA 49 § SF 4D $ GF 4 F 0018 P.AAE: ASCII \/FORM_SI E\<0><0> : 
00 00 54 4 4 49 F 8 4 P.AAF: .ASCII \/RIGHT\<0><0> : 
00 00 45 4 49 4C¢ 25 4 44 ‘é F O2C P.AAG: .ASCII \/UNDERLINE\<0><0> $ 
52 45 464 4E 5 SF 4 54 41 5 41 22 te 23 cf et P.AAH: .ASCII \/SEPARATE_UNDERLINE\<0> 3 
44 4E 55 SF 47 GE 49 43 41 50 99 r+} GF 4 2F Q04C P.AAI: .ASCII \/NONSPACING_UNDERLINE\<0><0><0> : 
00 99 00 45 4E 4 f 5 3 0058 3 
54 5 50 4E 4 24 «5 5 5 BR. P. AAJ: aoa \SYSSINPUT\ 3 
61 70 20 6E 6F 69 74 69 73 6F 38 MA 97 re 9? a970 P.AAO: .ASCII <7><127><7><127>\Position paper, \ 3 
65 63 61 70 73 20 61 20 65 6 79 74 00084 ASCII \type a e\ : 
00 00 00 0D 00090 P.AAS: “ASCII <isocos<dscos ; 
-PSECT SOWNS,NOEXE,2 
00000 U_EXT: .BLKB 4 
00004 U-EXT_ PTR: 
BLK 4 
00008 TYPE _LENGTH: ; 
OO00C TYPE _PTR: _ , 
00010 PRSE _SPEC 1 we 22 
00058 RANGE ERROR Sea | 
0004 0005C veonmcnia 4 ‘ 
01 05 “BYTE 14, 1 : 
00000006" 09986 SORES B{AAB 
0009 00064 S1OBSFILE SPEC: 
.@ORD 9 3 
01 OF 000 “BYTE 14, 1 : 
00000000' 00068 -ADDRESS P.AAJ ; 
TEMP= PRSE_SPEC we et 
TRN RINTES, RNFCEA, 
TRN RNFINM, RNFIVS ANE oP 


23 


6 th 


- 
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pports Digests and distributes 


ive ommand Line {ntorng tio 16-Sep-1984 9: 43? 3 AX-11 Bliss-32 V4.0-74 Page 431 


¢ 
DOOPTS == Process /FORMSIZE switch informatt on 14-Sep-1 RUNOFF .SRCJDOOPTS.BLI; 
-EXTRN sencop Pyrort PHAN 


£ $110 vac CNT 
*EXTRN BARS 

x 5 IT, tbh RESULTANT 
SEXTRN ENAAE mai Py TRTY 

RGH, VRENTR, VRFIND 

“EXTRN XPO$PARSE “Set XPOSFAILURE 
EXTRN XPOSOPEN POSPLT 
SEXTRN Xs KSTSEORMAT, XSTSFREE_TEMP 


EXTRN 
.PSECT $CODE$,NOWRT,2 
OFFC 00000 ENTRY aes. Save R2,R3,R4,R5,R6,R7,R8,R9,R10,- ; 0418 
5B 000000006 EF 9E 00002 MOVAB S01, RIT : 
5A 00000000G EF 9E 00009 MOVAB 10B$+44, R10 : 
59 00000000' EF 9E 90010 MOVAB Geared chron. FLAG, R9 : 
[oer ee SUBLS SP 
69 04 00021 CLRL RANGE ERROR. FLAG + 0455 
50 000000006 EF 1C C1 00023 ADDL3 #28, RNIIOB? RO + 0462 
000000006 EF OF 900¢6 PUSHAB KPOSF AILURE : 
E D4 00031 CLRL 2 : 
7E 01 CE 00035 MNEGL SP) : 
B8 Ad SF 00036 PUSHAB PRE. SPEC _BLOCK : 
50 DD 00039 PUSHL : 
000000006 EF 05 FB 0003 CALLS #5, XPOSPARSE SPEC : 
BO Ad EO Ad 3C 0008 MOVZWL TEMP, TY E LENGT > 0468 
B4 A E4 AI DO 0004 MOVL  TEMP+4 + 0469 
04 BO Ad D1 0004C CMPL TYPE. LENGTH.” 4 : 0472 
7E 12 00050 BNEQ § : 
AC Ad AB AD i 00052 MOVAB U_EXT, U_EXT_PTR + 0477 
53 01 p00 0005 MOVL at, 3: 0479 
51 B4 B9 9A 0005A 1S: MOVZBL aTYPE_PTR, KAHR + 0485 
B4 AD D6 0005E INCL TYPE_PTR : 
00000061 = 8F 31 D1 00061 CPL KAHR> #97 ; 0487 
0000007A_ =F 1 D1 00064 CML KAHR. #122 : 
53 D4 0073 CLRL = R2 > 0489 
00900041 =F 31 D1 0075 CPL KAHR, #65 : 
D 7 INCL oR : 
; OP 80086 28: et ORS : 
0000005 8F i CHPL KAR, #90 | 
6 06 INCL R : 
AC B89 35 8 ses OR Ot? OS gu ext pte : 
AC B9 ; i 03 4$ BCYB KAHR, aU ext orn 0491 
AC AD OD 9B 5$ INCL U-EXf_PTR ~ > 0489 
B88 53 04 F AOBLEQ #%, I> 1$ > 0491 
AC AQ AB AD OD A MOV u_ExT: U_EXT_PTR + 0494 
00000000" EF AC B89 D A CMPL = a0. ext _PTR, P.AAA > 0496 
1F 12 OOOAF BNEO  6$7 : 


eer nee — — en eS a RR —- ~ eC: 


Be Be Se Be Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Fe Se Se Fe Fe Se Se Se Se Se Se Se Se Se Se Se Se Se Se ee Se ee Fe Se aese Sete Se se Sse ee ee Bete teas 


Digests and distributes 
DOOPTS == Process /FORMS 


000000006 FF 
BC 8 


4 
6E 
9° a 
FF30 «6C 
08 AE 
Oc AE 
68 
04 AB 


00000000G_ EF 
oc 


00000000G_ EF 


52 

00000000G_ EF 
66 

51 

50 

9C = AB 

50 

000000006 8F 
3A 


0000007C 8F 


00000000G_ EF 
oc 


00000000G_ EF 


000000006 Fe 


Fgereng Ling i 
I switch info 
00009 G FF 
G FF 
ate € Ef 
4 F 
4 F 
04 ag 
5 
30 =6A4 
3 
013F 
5 
34 AG 
6E 
6E 
300 AG 
08 AE 
OC AB 
10 AB 
6B 
oc Ae 
00G 8F 
01 
OE 
04 + =«BE 
04 AE 
OC 8hUOCOA 
5 
04 
O0000000GEF 43 
046 AE 
i 
Sopeeneeser a: 
6140 
03 
01 Ae 
000000006 fF 
0 
54 
50 
i 
OC AE 
E 
00G  8F 
1 
E 
4 BE 
4 AE 
C ag 
OOOO00000GEF 4 
06 =#A 


y 


nformatio 1 


ae 


AOU & &SAAWMAININININ “QDOOCO TN NH MMMMMOOOIVVICOCOWWW 


oO 


— 


RRA SMS LV S$ A S* A OM WE ENO MOL NO SSM S FIOM FOOOCCOS Ul FOF YF 
SNNNO 


Oooo 
Oe el a ee et ee a ed a a ed a a ad ad odd od ed od ad I I SOOO OO OOOOCOOO 


>wo 


MnOOTS O02 09 9 9 FOF ONGII OMMOONIOS OO O- CC OO OWI TC OWwW"Doco oor07T7 
“ 
bad 


1986 $3:00:01 


CLAL aHCT+8 
ah Are 


LRL A 
MOVZ7BL #7 


MOVZBL #72, @GCA+140 
M » RG 


BGTR 
MOVZBL #RI 
MNEGL 4g I 


#4, 1, _R3 
PUSHAB SPAGERCR3) 
CALLS #2, PARSEP 

8 RO, 15$ 

MOVAB TPAGERCR3), R1 
(R1)C1) 

. 1, 11$ 
1(R2), GCA+108 
CMPL RO, #RINTES 
CMPL = RO, #58 


Atl 
AGE 


AX-11 Bliss-32 V4.0-74 
RUNOFF .SRCJDCOPTS.BLI; 


<9 


us a 9 9 
om oo ome 8 Bee Om Oe Bee Ome Om hee 


BRB 

MOVZBL @IRA+4, KHAR 
IN IRA+4 

DECL IRA+12 


Pe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Fe Fe Ge Ge Se Se Fe Ge Ge Se Se Se Se Ge Se Fe Se Se Fe Se Fe Se Se Se Fe Se Se Se Se Se Be Se Fe Se Be Be Se Se Se 
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DOOPTS Digests and distributes command Line informatio 16-Sep-1984 00:15: AX-11 iss- 4.0-74 | DOOF 
v04-000 DOOPTS == Process /FORMSIZE switch Intoraatton 147808-1 382 90 baias RUNOFF’ SRE poePys olf, Page 233 voa" 
0664 31 OO1A BRW 88$ : | 71 
50 000000006 EF Dd 198 16$:  MOVL KHAR, RO + 0578. 71 
000000006 &F 4 b| 180 CMPL RO. #RINTES _— : 1 
41 1300187 178: BEQL 22$ : ey 
2c 50 01 00189 CMPL RO, #44 + 0583 314 
9° 13 001BC BEQL =«*18$ : 3 14 
3B g D1 1BE CMPL R0 #59 : 3 14 
2 if 1C BNEQ 20$ : 3 14 
OC AE D5 001C3 188: TSTL IRA+12 : 0587 ay 
OE 14 O1¢6 BGTR 9 : : 16 
000000006 EF 006 8F 9A 001C MOVZBL M#RINTES, KHAR : 714 
OC AE 01 cE 9100 MNEGL #1, IRA+12 : 3 16 
iE 1 104 BRB 21§ : 714 
000000006 EF 04 BE 9A 00106 19$:  MOVZBL @IRA+4, KHAR : 316 
04 AE D6 01DE INCL  IRA+4 : 314 
OC AE 07 O01E1 DECL IRA+I2 : 3 16 
OE 11 OO1E4 BRB 1$ : 714 
08 AE DD 00166 208 PUSHL  IRA+8 : 0591 3 16 
04 AE DD 001E9 PUSHL IRA : 714 
000000006 8F DD OO1EC PUSHL #RNFCEM : Aer 
1B 11 OO1F2 BRB 23 ; 314 
FF2B 52 01 04 F1 OO1F4 218 ACBL #4, #1, I, 108 + 0540 7 14 
000000006 8F 000000006 EF 01 OOI1FA 22$ CMPL = KHAR, #RINTES + 0604 214 
0B 13 ia BEQL 24 3 s 14 
7E 7C 00207 CLRO = = (SP) + 0608 31: 
000000006 8F DD 9909 PUSHL  #RNF TMP : 71 
023A 31 0020F 238: W 44$ : : 13 
0 55 £9 00212 24$: LBC. — «aR, 2 > 0612 3 13 
01 AB 04 88 00215 BISB2 #4, GCA+209 > 0614 7 13 
AO AB 01 DO 00219 25s: OVL #1, GCA+11 : 0615 : 13 
55 4C Ad 9E 0021D 26$: MOVAB 76(R4), RS : 0724 : 13 
03 02 AS ES 00221 BLBS g(R5), 28$ 3 71: 
O14E 31 00389 27$: RW 0$ ; 713 
02 65 04 16 ED 00228 28$: § CMPZV Wee, W4, (RS), #2 : 0726 : 13 
F6 13 00220 EQL 6 -27$ : 713 
50 000000006 _ EF 1¢ (¢1 O03¢F ADDL3 #28, RNIIOB, RO > 0744 7 13 
D8 AA 10 Ad SE 00237 MOVAB 16(R4), ICB$+4 ; 313 
DC AA 04 Ad 9E 0023C MOVAB S$IOBSDEFAULT, 10B$+8 ; 71 
FEO AA 50 00 00241 MOVL RO {08 + 3 sy; 
02 AA 00010002 BF CB 00 45 BISL2 #65538, 10B$+46 ; : 13 
6A 01 90 00240 MOVB 1, 108$+44 : 71 
000000006 EF 9F 00250 PUSHAB GRAB_RESULTANT : 71 
E D4 00256 CLRL  =(SPY : : 13 
D4 AA 9F 00258 PUSHAB 1088 ; 3 13 
000000006 cf 93 FB 5 CALLS #3, XPOSOPEN ; : 13 
3 0 € 6 LBS STATUS, 29 : 0746 717 
900000006 EF BD 9 6 USHL  SEMCO : 0748 : 13 
7E 000000006 EF 3¢ $ MOVZWL TEMP, -(SP) : 7 13 
900000006 F DD 00 PUSHL  TEMP+4 ; 31 
00000006 SF DD 0027 PUSHL #ANFCOB ; : 1 
000000006 _ EF 4 3° 0 43 CALLS #4, ERME F 7 13 
0605 3 BRW 88s : 0749 a 
08 AE :¢t 29$:  MNEGL #1, TEMP : 0763 1 
C AE D MOVL #2. TEMP+4 > 0764 77) 
6£ : MOVW #8, S$IOBSOUTPUT > 0767 : 1 

02 AE 9 MOVB sot, $1OBSOUTPUT +2 ; 

AE 1 90 0029 MOVB #1, SIOBSOUTPUT+ F 


nN 9 
DOOPT Digests and distributes command Line informatio 16-Sep-1984 215: AX-11 Bliss-32 V4.0-74 P 4 
MOS 080 DOOPTS =~ Process JFORMSIZE euitch inforation’ Veesene198d $e:ge58y | PAMNoeR sae Spape ye or 1. age 533 
04 AE 08 AE 9E 0029 MOVAB TEMP, $IOBSOUTPUT+4 ; 312 
18 AA bo i MOVAB —${0BSOUTPUT, 1088+68 : | 1! 
6A 9 AG MOVB #7, I0B$+44 : : 1; 
000000006 EF 9F O0¢A7 PUSHAB XPOSFAILURE ; 3 i 
De AA OOF OODar seta 10Rs. : | 3 
000000006 gF 3 FB 00 Be ALLS 43° XPOSPUT : $33 
| om iiege BRI, = desea Beg BE 
00000000G_ EF 3 FB 0 BE CALLS #3 RGH : 3 13 
08 AE 00020001 8F DO Odec OVL #131073, TEMP + 0774 313 
6E 04 80 0 a MOVW #4, $10B$0U : 0776 31! 
02 AE 2 D0 MOVB ss #2, $1OBSOUTPUT +2 : 313 
03 AE 01 90 00204 MOVB #1, SIOBSOUTPUT+ : 313 
04 AE 08 AE 9E 00208 MOVAB TEMP, $IOBSOUTPUT+4 : 31: 
18 AA GE 9F 0020p MOVAB $IOBSOUTPUT, 10B$+68 : sii 
6A 07 90 002E1 MOVB #7 +44 : $1; 
000000006 EF 9F OOZEA PUSHAB XPOSFAILURE ; 213 
E D4 OOZEA CLRL = = (SP) : 313 
D4 AA OF OOZEC PUSHAB 10B$ : 313 
000000006 EF 03 FB OOcEr CALLS #3, XPOSPUT : 313 
7E 02 7D 002F6 MOV #2, =(SP) + 0780 : 13 
0¢ DD 002F9 PUSHL # : : 43 
000000006 EF 03 FB 002F8 CALLS #3, RGH : 313 
08 AE 01 pO 00302 MOVL #1, TEMP 3; 0783 ee 
OC AE 03 DO 00306 MOVL #3. TEMP+4 : 0784 : 13 
6E 08 BO 0030A MOVW #8, $IOBSOUTPUT : 0786 713 
02. AE 02 90 0030p MOVB = #2,.:« SIOBSOUTPUT+2 : : 13 
03 AE 01 90 00311 MOVB #1, $IOBSOUTPUT+3 : 713 
04 AE 08 AE 9E 00315 MOVAB TEMP, S$IOBSOUTPUT+4 : 313 
18 AA 6E 9E OO31A MOVAB $IOB$OUTPUT, I0B$+68 : 13 
6A 07 90 OO31E MOVB #7, +~IOB$+ : 313 
000000006 EF 9F 00321 PUSHAB XPOS$FAILURE : : 13 
7E D4 00327 CLRL = = (SP) : : 13 
D4 AA OOF 00329 PUSHAB 10B$ : 3 13 
900000006 EF 03 FB 0032¢ CALLS #3, XPOSPUT : 713 
7E 02 7D 00333 MOVO #2. =(SP) : 0790 : 13 
03 DD 00336 PUSHL # : : 13 
000000006 EF 03 FB 00338 CALLS #3, RGH : 313 
08 AE 01 DO 0033F MOVL #1. TEMP : 0793 : 13 
OC AE 01 DO 00343 MOVL #1, TEMP+4 : 0794 : 13 
6E 08 B0 00347 MOVW #8, $IOBSOUTPUT > 0796 : 13 
02 AE 02 90 0034A MOVB st, LOBSOUTPUT +2 ; 713 
03 AE 01 90 0034 MOVB #1. $IOBSOUTPUT+ : 51; 
04 AE 08 AE 9E 0035 MOVAB TEMP, $IOBSOUTPUT+4 : 7 13 
18 AA oe 3 035 MOVAB $10BS0UTPUT. 10B$+68 : 71: 
6A 07 90 00358 OVB #7, I0B$+44 : 71: 
000000006 EF OF 0035 PUSHAB XPOSFAILURE : : 13 
E D4 00364 CLRL = SP) : 71: 
D4 AA 9F 00 66 PUSHAB 10B$ : : 13 
000000006 EF 3 EB 0 é CALLS #3, KPOSPUT : : 13 
AC AB 88 00370 BISB2 #7. GCA+124 : 0802 : 13 
4 11 00374 BRB 31§ > 0724 : 13 
AC AB 7 BA 00376 308: BICB2 #7, GCA+124 : 0809 : 1 
38 AG 83 037A 1$: TSTW 36{R4) > 0834 : 13 
38 1 7D BEQL 4$ ; Bt 
6E 3c )=— AGC 0037F MOVL  60(R4), IRA 2 0846 | > 1 
| 
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000000006 
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00000000' 
000000006 
EF 
69 
2A 01 
01 
20 01 
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DOOPT Digests and distributes command Line informatio 16-Sep-1984 :15:30 AX-11 Bliss-32 V4.0-74 b 7) 
POe 00 DOOPTS =-- Process /FORMSIZE leak information 13-88-1382 99 8:8 RUNOFF ..SRCJDOOPTS.BLI; age 53) 
6 1 00 00549 MOVL #1, RANGE_ERROR_FLAG : 0939 ; 
23 3 iH FI 4C 57$: BBC #16 CR 58$ ~ : eee : 
01 A2 } TSTB =—s-:-1(R2) : ; 
1E 1 BEQL 58$ : ; 
20 01 Ad 91 CMPB =s«dW(R2), #32 + 0944 ; 
18 18 00559 BLEQU 288 : ; 
15 od 00558 PUSHL #21 + 0947 ; 
90000000" F OF 0055 PUSHAB  P.AAI : ; 
000000006 8F DD 0056 PUSHL #RNFINM : ; 
000000006 EF 3 F 096 CALLS #3, ERM : : 
69 1 0 005 9 MOVL #1. RANGE_ERROR_FLAG + 0948 : 
03 $9 5 2 58$: BLBC RANGE_ERROR_FLAG, 59$ 3; 0951 3 
5 01 0333 zt bos78 59$ at a #1, (R5), OUTOPT+12 : 0957 : 
000000006 _ EF gi DO 0058¢ MOVL #1, OUTOPT+16 + 0958 ; 
0 D4 0098 CLRL ~— RO + 0961 : 
02 Ag B5 00588 TSTW © 2(R2) : F 
9 15 0038E BLEQ  60$ : ; 
0 D6 0059 INCL RO : : 
00 50 FO 00592 60$: INSV RO, #0, #1, GCA+68 : 
00 FF74 CB Fo 00599 INSV  GCA+68, #0, #1, SCA+168 > 096 
C0C00000G EF 02 Ae 32 005A4 CVTWL 2(R2), OUTOPT+20 : 096 
01 05 EF O05AC EXTZV #5, #1, (R3), RO + 0966 
01 50 FO 00581 V RO, #1, #1, GCA+68 ; 
01 0S EF 00588 EXTZV #5. #1. (RS), R + 0967 
01 50 FO 0058p INSV RO, #1, #1, SCA+168 : 
01 A2 95 005¢6 TSTB ~—s_- 1(R2) + 0969 
10 12 005¢9 BNEQ 61$ : 
63 0B FI 005¢B BBC #11, (R3), 61$ : 0970 
FF74 «CB 02 8A OO05CF BI ¢B2 We, GCA+68 : 0973 
000000006 EF 02 8A 00504 BICB2 #2, SCA+168 : 0974 
A 63 05 £1 005DB 61$: BBC #5, (R3), 67$ : 0977 
01 07 EF 005DF EXTZV. #7. #1, (R3), OUTOPT+8 : 0981 
01 09 EF 005E8 EXTZV #9. #1. (R3). OUTOPT+4 + 0982 
63 OB €1 005F1 BBC wii, (R3), 62s : 0986 
50 01 Ae 9A 005F5 MOVZBL 1(R2), RO : 0989 
37 11 005F9 BRB ; 
01 000000006 a D1 00548 62$: CMPL QUTOPT+8, #1 > 0996 
5 12 0060 BNEQ 63$ : 
50 90 D0 9604 MOVL #45, RO : 
9 11 00607 BRB ; 
01 000000006 EF D1 00609 63S: CMPL OUTOPT+4, #1 : 0997 
05 12 0061 BNEG 64% ; 
50 07 00 061 MOVL #7, RO ; 
B 1 1 BRB ; 
01 000000006 FF D1 00617 64$: CMPL OUTOPT+12, #1 ; 0998 
— 13 O6i6 BEQL ; 
01 000000006 EF D1 006 CMPL QUTOPT+16, #1 : 
5 13 00627 BEQL 65$ 3 
50 1 cE 0629 MNEGL #1, RO ; 
4 06 ¢ BRB 66$ ; 
50 SF F 9A 0062E 65$:  MOVZBL #95, RO : 
000000006 EF 0 vO 06 668: MOVL RO, OUTOPT > 0985 
48 4 4 EF 67$:  EXT2V #4. #4, GCA+208, RO : 1010 
4 0 D 06 : CMPL = RO, #4 F 
A 13 0064 BEQL 68$ : 
05 0 Di 00643 CMPL = RO, #5 > 1011 
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DOOPTS Digests and distributes command Line informatio 16-Sep-1984 215: AX-11 Bliss-32 V4.0-74 
v04-000 DOOPTS =— Process /FORMSITE suiten inforcaticn’ Iackep1obe Se:0G;0y — EAUNorR sae ipoopys a 744 Page 25) 
50 09 Ae 1 7 €F 0075 EXTZV "7. #1, GCA+217, PO : 1151 
FF7C }3=sCB 01 O4 9% F 58 INSV a, i" GCA+76 : vig 
0 60 MG 3 ie cVTWL o(Ra 3 1154 | 
09 000000006 EF £9 007 " BLBC oS 79$ + 1158 
000000006 EF 5 D6 Mi We 20, PHAN+8 + 1161 
000000006 EF th D0 007 6 79$:  MOVL aus PHAN+ 36, : 1165) 
7 000900006 EF €E8 00787 80$:  BLBS  PHAN+52, + 1169) 
F 00000000G_ EF F 07 3 BLBC P'AN+60, 3S : 
So00gK00e EF 00040008 BF 5 nn S Ce: est y Tepgs4e eee Fiat 
000000006 EF 8 § Mia MOVB 10B$+44 : 
000000006 EF OF OO7AF PUSHAB XPOS ALLURE : 
E 04 00785 CLRL  =(SP : 
000000006 EF 9F 00787 PUSHAB 198s : 
000000006 EF 03 FB 0078D CALLS #3, XP SOPEN : 
03 000000006, EF EE 007 C4 82$: BLBS PHANS5 : 1178 
03 000000006 EF 04 £0 OO7CE 83$: BBS #4, TSI10B+50, 84$ + 1181 
0080 31 00706 BRW 87$ ; 
08 AE 20 BO 007D9 84$: MOVW #32, SSTRSSTRING ; 1195 
OA AE OE 90 007DD MOVB #14, ps ps My ee 3 
OB AE 01 90 007] MOVB ‘1, "SSTRSSTRING+3 : 
OC AE 00000000' i 9E 007ES MOVAB P.AAO, $STRSSTRING+4 : 
E D4 OO7ED CLRL =< SP) : 
0c AE 9F OO7EF PUSHAB S$STRSSTRING 3 
43 D4 007F2 CLRL = : 
000000006 EE 03 FB O07F4 CALLS #3, XSTSFORMAT : 
2 50 DO 007FB MOVL RO, Re : 
50 000000006 EF D0 OO7FE MOVL 1o8s¢ 6, RO ; 
09 13 0080 BEQL 5$ : 
50 DD 00807 PUSHL RO : 
000000006 EF 01 FB 00809 CALLS #1, XSTSFREE_TEMP : 
00000000G_ EF 52 D0 00810 85$:  MOVL 2. I0B$+36 : 
000000006 EF 07 BO 00817 MOVW #1 1088+5¢ : 
000000006 EF OE 90 00816 MOVB #14, 10B$+54 F 
00000000G_ EF 06 90 008 OVB #6, I0B$ : 
000000006 EF 9F 008 ¢ PUSHAB XPOSFAILURE : 
E D4 008 LRL ss = (SP) ; 
000000006 ai 9F 008 PUSHAB $ F 
000000006 EF 3 F 08 A CALLS #3, XPOSGET : 
08 AE 01 841 OVW #1. $IOBSOUTPUT > 1201 
OA AE OF 00843 vB #14, $10BSOUTPUT+2 : 
AE 0849 MOVB #1, SIOBSOUTPUT+3 : 
OC AE 00000000' EF 9€ 00840 MOVAB P.AAS, $IOBSOUTPUT+4 : 
000000006 EF 08 AE 3 5 MOVAB Sjossoutrur 10B$+68 : | 
00000000G_ EF 07 90 00850 MOVB 10B$+44 : 
000000006 ai SF 00864 PUSHAB ROSE AILURE : 
E p4 BOA CLRL = = (SP : | 
000000006 EF 9F $ PUSHAB ! $ ; 
000000006 EF 3 rp CALLS XPOSPUT yo 
07 000000006 EF E9 86$: BLBC  PHAN+60, 87$ : 1 68 
000000006 EF 0 FB CALLS #0, BWAIT : 1207 
0 1 p : 87$:  MOVL #1. RO > 1209 
4 C RET : 


v04: 


45 


DOOPTS pigeers s and distribute 


y04-000 poe? mman Ling intore tio 18-50 =300n 1386 99: §3: 39 AX-11 Blis £99538 V4.0-74 Page 40 


co 
S == Process /FOR MSIZE switch ormation 14-Sep-1 RUNOFF .SRCJDOOPTS.BLI; (20) 
4 8$: R RO ; 1210 
50 Bt boser ° Re ' 


; Routine Size: 2192 bytes, Routine Base: $CODE$ + 0000 


; 1100 1211 «1 


H 10 
and distributes command Line informatio 16-Sep-1984 00:15: AX-11 Bliss-32 V4.0-74 
output and enable ‘‘quick"’ processing 12280 8=138e 99:48:89 RUNOFF ..SRCJDOOPTS.BLI; 


ZSBTTL "Disable output and enable ‘‘quick’’ processing’ 
GLOBAL ROUTINE SETQUICK (close_output) : NOVALUE = 
i 


FUNCTIONAL DESCRIPTION: 


<9 

_ 

—_ 
lofolelo) - 
Uwr 

oo 
at te 


This routine is called to close the output file and set up the GCA 
for ‘‘quick’’ output processing. 


i 

i 

i 

i 

i 

| FORMAL PARAMETERS: 
close_output - If true, the output file is closed. 
i IMPLICIT INPUTS: 

gca_cmd_quick - If true, no processing is done 

i IMPLICIT OUTPUTS: 
i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

' 
ie 


NIAAA WIANWIAIPIPOPIPINPINIPINPINID 2 2 OS OO es ———s VO 


FS OS See ne O00 dee oe 
WN $$ SO OONOUSWN “OVDONOULWN—OOW 
NOUS WN @ OO ODNAULS WN O ODNAOUES WN (OOO NOULSWN OODNOUSW 8 oO 


=PINIWIWIWIWII IWIN 2 2 res OY 


Be Se Se Se Se Se Ge Ge Ge Se Ge Ge Fe Se Fe Se Ge Se Se Ge Ge Ge Se Se Sse Se Fe Se Se Se Se Se Se Se Se Se Se Sees Fete Se Sse asese 
ma a a a a ed dk od = = 8d dd 8 


ak a ak at ts = = 2 2 2 2 a St Ss 2 2 2 SS 2s SS SS Ss SS SS 
a kik atk tk a = = = = = ss SS 2S SS SS a 2 Sh os SS ot St 


gca_cmd_quick = Set to true 
gca_cmd_bar - Set to false 
gca_skip_out - Set to true 
gca_cmd_msg - Set to (1 * 1) 
output File is closed 'If close_output is true. 
2 ROUTINE VALUE: 
$3 COMPLETION CODES: None 
$¢ ! SIDE EFFECTS: None 
Bed | ine 
$e BEGIN 
35 st IF NOT .gca_cmd_quick 
36 24 THEN 
37 24 BEGIN 
38 24 gca_cmd_quick = true; 
39 $e gca_cmd_bar = false; 
40 5 gca_skip_out = true; 
41 25 pee.chd.Sa9 = (1 * 1); 
ri} 25 F .close_output 
4 25 THEN 
44 25 clh (clh_close_del_out); 
45 $2 ND; 
46 5 
47 25 END; ! End of SETQUICK 
0004 00000 eENTRY SETQUICK, Save R2 
52 000000006 EF 9E 0000 MOVAB GCA+208, Re 
1 62 0 BLBS GCA+208, 1 
6 4 ° BISB “i, StAre0s 
C 1 BA #1, GCA+76 
A 01 DO 000 #1, GCA+11 
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DOOPTS Digests and distributes command line informatio 16- Sep-1984 00:15: AX-11 Bliss-32 V4.9-74 Pa 42 
v04-000 Disa ble output and enable ‘quick’ processing 1 ~Sep- 1984 $9 b8i08 RUNOFF ..SRCJDOOPTS.BLI; ff | 
FF64 cs 02 D p18 MOVL #2, GCA+52 ; 1251 
06 AC E 1D BLBC CLOSE OUTPUT, 1$ + 1252 
of 0D ost PUSHL @# : 1254 

00000000G_ EF 1 FB 000 CALLS #1, CLH 3 
04 0002A 1$: RET 3; 1257 
; Routine Size: 43 bytes, Routine Base: S$CODE$ + 0890 | 
; 1148 1258 1 | 
| 
| 
> = od 
—_—_—_—_—_—_—_—aXSXJXnX=SslE <_< nnn nnn eee eR _ _ _——————————————————— — — — nm nmnmnmnmRnRnRenkenkekmg<— —~=~— ~~  eSc7OVOVMXX eee) 


SD SS ~—-~—y 
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PT Digests and distributes command Line informatio 1b-Se -1984 00:15: AX-11 Bliss-32 V4.0-74 Page 43 DOO 
v0e~000 Disable output and enable ‘‘quick’’ processing 14-Sep-19 4 99 b8i09 RUNOFF .SRCJDOOPTS.BLI; " (22) v04- 
3 1} ° : 28 } ROUTINE write_ln01_info (rno_cmd : ref $rno_cmd) : NOVALUE = 
3 3) ¢ 1 ef 1 !+4 
: 1 ? : 8 ! FUNCTIONAL DESCRIPTION: 
3 | 5 : rf: : This routine writes LNOl-specific escape codes into the output file. 
; 113? : 08 : FORMAL PARAMETERS: None 
3 1128 : oe : RNO_CMD is the command-block structure address, passed from DOOPTS. 
3 130! : 19 ! IMPLICIT INPUTS: 
3 1183 1 ie 1} The following GCA bits are checked to control which escape 
3: 1164 1275 1! sequences are written: 
3; 1165 1274 1! 
: 1166 1275 1! rno_cmd (rno$v_ln01_header] 
3: 1167 1276 1! rno_cmd [rno$v_ln01_load] 
3; 1168 1277 1! gca_op_dev 
3 1169 1278 1! gca_\n01_ital_under 
: 1170 1279 1! gca_\n01_port_land 
3; 1171 1280 1! 
3 1126 1281 1 ! IMPLICIT OUTPUTS: 
3117 1S86 1! 
3 1174 1283 1! Initial escape sequences are written to the output file. 
3 1175 1284 1! 
3: 1176 1285 1 ! ROUTINE VALUE: 
3; 1177 1286 1 ! COMPLETION CODES: None 
3; 1178 1287 1! 
3 1179 1288 1 ! SIDE EFFECTS: None 
; 1180 1289 1! 
3: 1181 1290 1 !-- 
3 BE 1291 1 
; 118 1636 BEGIN 
3: 1184 129 
; 1185 1294 MACRO : 
3; 1186 mM 1295 write _escape_sequence (string) = 
: 1187 M 1296 BEGIN 
: BF M 1297 LOCAL 
3; 1189 M 1298 en, 
3; 1190 M 1299 ptr; 
3; 1191 M 1500 fs_init (fra); 
: 1198 M 1301 len = -stringESTRSH LENGTH]; 
> 119 M 1308 ptr = .stringlSTRSA_POINTER); 
3 1194 41 fs_wehar (fra, escape); ‘Write initial escape character. 
3 1195 M 1304 INTR i FROM 1 TO .len DO ‘Append formal. 
: 1138 M 1305 fs_wchar (fra, CHSRCHAR_A(ptr) ); 
3 119 M 1306 clh (cTh_out_nocr(f); 
3 1198 M 1307 END 
3 1199 1 88 %; 
; 1300 1 
3: 1201 1310 LOCAL 
$ 1306 1311 ecslpp, ' Lines (actually, pixels) per physical page. 
: 120 1 \§ pixels_per_line_spacing, ' Used to calculate decsipp. 
: 1204 131 twice _paper_size, ! Accounts for portrait/landscape orientation. 
3 1205 1314 right_shift, ! Pretend the user said /RIGHT= this value. 
: 1206 1315 top_margin, 


' 
Assign parameters that depend on portrait/landscape orientation. 


#1 g008..Ln0l portland EQL 1 !Portrait orientation. 
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V0e-000 isable output and enable meek processing 132800= 138s 99:58:88 LRUNOF Fe SRE DOOPTS.BLI; “ (22) Oe 
07 bottom_margin, 

Left_margin, 

right _margin 

text_font : $STR_DESCRIPTOR (CLASS=DYNAMIC, STRING= (0, ), 

bold_font : SSTR_DESCRIPTOR (CLASS=DYNAMIC, STRING=( y Be 

italte font : SSTR_DESCRIPTOR (CLASS=DYNAMIC, STRING=(0,0) ), 

bold_ifalic_font :“$STR_DESCRIPTOR (CLASS=DYNAMIC, STRING=(0,0) ), 

text_def : SSTR_DESCRIPTOR (CLASS=DYNAMIC, STRING=(0,0) ), 

bold def : SSTR DESCRIPTOR (CLASS=DYNAMIC, STRING=(0,0) ), 

italic_def : SSTR_DESCRIPTOR (CLASS=DYNAMIC, STRING=(0,0) ), 

bold_ifalic_def :“SSTR_DESCRIPTOR (CLASS=DYNAMIC, STRING=(0,0) ), 

work_string : SSTR_DESCRIPTOR (CLASS=DYNAMIC, STRING=(0,0) S; 


BEGIN 
right_shift = 2; 
Bi setn per,A tne_apet ing = 50; 


WWW NIANIWNWInonononofnonononone~n — — ———( 1 


Mrmr 
WAIN PUNINININININININ 2 2 2 SS SS OO 
WIN =O OODNAUES WIN SO ODNA UE WN $0 ODNAUES WN (OOO NOULSWN—OVOONG oO 


CRISS OOO NOME UNO WOU WO CONOUESWN—“OOONOUSWN OOM 


ao Oe * .pixels_per_line_spacing) 
(.phan_slines * .pixels_per_line_spacing) 


i] 
: Calculate values for margins. 


3 
3 
3 
3 ELSE !Landscape orientation. 
3 BEGIN 
34 IF .gca_op_dev EQL op_dev_\n0le 
34 TH 'European-style LNO1. 
$e right_shift = 13 
34 4 ELSE ‘American-style LNO1. 
; $ right_shift = 9; 
3 4 ixels_per_line_spacing = 35; 
3 34 END: . 
3 34 
4 34 : 
r ; } Calculate value to use for decslpp (pixels per page). 
4 decslpp = 
4 3 CTF -phan_simulate 
4 3 THEN 
4 
4 ; 
: 


AOOOUIVMIIVIVIUIVIVIVT 


top_margin = 1; 

botftom_margin = .decslpp: 

left_margin = 1; ‘DEC rom revision #14 Left must be 1. | 
right_margin = 65536; 'Largest unsigned number. 


PUPA & 


! 
Set up right shift if user did not say /RIGHT himself. 


IF NOT .rno_cmd Crno$v_s_right] 
THEN 'User did not specify /RIGHT. 


mM—OCOnNOu 
PIPIPIPIPIPIPINIPNIPINNIMNIN FAS WIWININININI NIN AWWW NAA ANI AI PPPOPUPINOPONIPUPOPONINUNUNUNINY Ow 


Be Se Ge Be Ss Se Ge Se Be Be Se Fe Fe Se Se Se Se Se Ge Se Be Ge Fe Ge Fe Ge Ge SH Gs Oe Se Se Se Se SF Ge Se Ge Se Se Se Ge Se Se ee Se Sete Sse See Sse Sete Ssetese 
ee ee ee Ee SS Ss 


PROPIPIPIPINIPIPONINININIPINININININININIPI PIN NPOPOPO No Ponofnononofnonofnononyd 


oan 


ll Digests and distributes command line informatio 1b-5e Sep-1 AX-11 Bliss-32 V4.0-74 
V O80 Digable output and enable ' omar processing Sep=1 38 99: 08: a RUNOFF ..SRCJDOOPTS.BLI; “4 
> 1264 1373 BEG 

>; 1265 1374 ahaa th optgnt. shift; 

3 1 06 1375 aca _tmd_rit = true; 

3; 126 1 6 

3; 1268 137 ! 

: i 4 : 4 Set up vertical shift if user did not say /DOWN himself. 

3: 1271 1380 i NOT .rno_cmd Crno$v_s_down] 

. ? i 1381 THEN 'User did not specify /DOWN. 

: 127 1 Ht phan_down = 2; 

3 1274 138 


Page 45 
998 03) 
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; 127 1384 

3 127 1 és IF_.rno_cmd Crno$v_ln01_header] ! Only process & output header if it 

: 1278 1 § THE ! was not suppressed by the user. 

: 1560 1388 way 

; \ 81 89 Build up a suffix string to determine which fonts get used. 

: ' Bs 1 4! iF -gca_ln0l_port_land EQL 1 ! Determine orientation 

: 1 52 : 38 4 a (TARGET= work string, STRING= 'P’ ) ! Portrait 

; 1 44 ! 4 S$STR_COPY (TARGET= work _string, STRING= 'L" ); ! Landscape 

: 1289 1397 IF .gca_op_dev EQL op_dev_l\n0le 

: 1290 1338 TH n° vibes _s 

3 1 4 1735 SSTR_APPEND (TARGET= work_string, STRING= 'E" ); ! European-style 

: 139 1401 ! If font pooere is specified (by the user not saying NOLOAD), we 

3 163% 008 ; will need the text strings for their module names built: 

: 1296 1404 3 IF_.rno_cmd Crno$v_ln01_load)] ! Only load fonts if needed 

: 1297 1405 THEN 

; if 94: 1406 4 BEGIN 

: 1299 1407 4 ' 

3; 1300 1408 4 ! Build each font module name string by adding the suffix string 

3: 1301 1409 4 ' to the base name. 

; 1302 1410 4 ! 

; 1303 P1411 4 $STR_COPY ( TARGET = text_font 

; 130% late 4 »STRING = $STRICONCAT ( 'DSRSFONT_T', work_string ) ); 

: 1306 P1414 4 $STR_COPY ( TARGET = bold_font 

3 44 el? : STRING = SSTR_CONCAT ( "DSRSFONT_B’, work_string ) ); 

: 1309 P1417 4 $STR_COPY ( TARGET = italic_font 

5 1319 1213 : eSTRING = $STR_CONCAT ( ‘DSRSFONT_I*, work_string ) ); 

: 1312 P 1420 4 $STR_COPY ( TARGET = bold_italic_font 

3 1313 1421 5 »STRING = $STRICONCAT~( “DSRSFONT_BI', work_string ) ) 

: 1318 1433 — 

: 1316 1424 ! Build each font definition file name string by adding the suffix 

3 fait 1¢5? : string to the base name. 

3 1319 P 1487 $STR_COPY ( TARGET = text_def 

; 1320 14 8g »STRING = $STRICONCAT( "DSRSFONT_DEFINE_T', work_string )); 

; 132@ P 1280 SSTR_COPY ( TARGET = bold_def 

; 1323 1431 »STRING = $STRICONCAT( "DSRSFONT_DEFINE_B', work_string )); 

3 1358 p 1438 S$STR_COPY ( TARGET = italic def 

; 1326 1434 »STRING = SSTR_CONCAT( "DSRSFONT_DEFINE_I', work_string )); 

: 1358 fe ors SSTR_COPY ( TARGET = bold_italic_def Z 

; 1367 143 »STRING = $STR_CONCATT 'DSRSFONT_DEFINE_BI*, work_string )); | 
| 


N 10 
s and distributes command line informatio 16-Sep-1984 90: 13:30 AX-11 
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14 

! The preliminaries are taken care of. Now write the pacbighns p> bin escape 
! sequences to the output (.LNI) file. The sequences are written in the 
' follow ng order. The first five are written only if the user didn't 

' issue a NOHEADER parameter: 


Font Load 

Font Assignment (Te 
Font Assignment (Bo 
Font Assignment (It 
Font Assignment (Bo 


53 
23 
‘vu 
o- 
ow 
o 
Oo°9 
ote 
ih 2-4 


ow 
nn 
z-—. 
ow 

um 

_— 2 | 

Ow 
or 
vo 


Srrrw vo 


MEW 9 ODNAULS WN 9 OONOA UE WN 9 ODNAUE WN OOONOULS WN —"OVDOONOULSWHN—O”O oO 


xt) 
ld) 
alic) tif Italic specified or defaulted] 
ld Italic) if Italic specified or defaulted) 


Set Lines Per Physical Page 
Top and Bottom Margins 

Left and Right fsrgins 
Default Font Invecation 
Vertical Position Absolute 


i The CLH routine is used to write output. The strings to write are built 
! up in the FRA fixed-string, and CLH called to write output with no ter- 
minating <CR> and <LF>. 


Write Font Load escape sequence unless the user said not to. Format: 
<ESC>JVMS;1;DSRSFONT_LOAD, fn1,fn2,...,ANSISST,defl.def2,...<ESC>\ 
| a = names of Library modules containing fonts 
defi, def2,... = names of Lib. modules containing font definitions 

The above sequence is known as an OSC ESCAPE SEQUENCE. 

$SSTR_COPY (TARGET = work _string, STRING= "JVMS;1;" ); ! OSC control seq. 

.raecad Crno$v_ln01_load] ! Only load fonts if needed 

BEGIN 

! load the Text and Bold fonts. 
SSTR_APPEND ( TARGET = work string 
»STRING= $STR_CONCAT ( ‘DSRSFONT_LOAD,' 
otext_font 
-bold_font 


NIAAA AAAA AAA MMIII 


vuvvU0U 
a ee ee ee ee ee a a dd dd 


Be et al ak al dk tak tek tale ak Dak De a en tn naan taal lak lal ak a tak lal ak ak ak Sk Sek Sek ak et ek Sk ee ke en ee ee et et ee 


3 


if stot tes were requested, also load the Italic and Bold Italic 
! fonts. 


' 

4 

: 

IF .gca_tn01_ital_under EQL 

THEN 

$STR_APPEND ( TARGET = w 
eSTRING = $ 


‘Italics requested. 


k serine z 
R_CONCAT (¢ italic _font 


bold, italic, font 


1 
or 
$T 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee ee eee 
vvuvv 


Be Be Se Se Be Se Se Se Se Be Se Se Ge Se Ge Ge Fe Ge Fe Ge Ge Ge Fe Ge FH Ge BH Se Se FF Se BH Se FH SH SS Se Se SESE SS Se Se Se SF Se Se Se Se Se Ses ee ss ese Seas 


yo? oy? ot ot ot oT ot ot ot et et et et et ete ee eee eee ey 


DOO ODO0 OBWWWOWDOWWO NINN NNN 


ed 


oc 


11 
and distributes command Line informatio 18-Sep-19 4 09: 15:30 VAX Bliss-32 V4.0-74 Page 48) DOOP 
Output and enable ‘‘quick”’ processing 14-Sep-1984 15:06: RUNOFF ..SRCJDOOPTS.BLI; (24) v04~ 


ow 


Finish the font-load escape sequence. 
SSTR_APPEND ( TARGET = work string ,STRING = ‘ANSIS$ST,' ) 
END; ! of font loading controls 

} This section specifies the font definition module names 

} Add text and bold definition module names: 


$STR_APPEND ( TARGET = work string 
»STRING = SSTRICONCAT ( text_def 


*bold_def ) ); 


vvv 
ee ee ee ee ee lo) 
WWNAIPIPIPONINPINIPNINYDD 2 2 OO OS SS SDOOCOOOOOCOOWWOWOO vo 


jofolelelole) 
MFWn—oO 
MO OODNAVUES WN —$ OOONAUE WN "ODE NOUESWN—OVOONO oO 


s 
e 
4 
4 
4 
! If italics were requested, also load the definition modules for the 
; } Italic and Bold Italic fonts. 
i 
; T 
3 
3 
3 
3 
; 
; 
3 
4 
2 
2 


SUS 


gca_\n0l_ital_under EQ. 1 ‘Italics requested. 


| 
| 
| 
| 
| 


o 
z=" 
m 
ze 


MEWN SO OONOUSWN—O”O 


SSTR_APPEND ( TARGET = work_ 

»STRING = SSTR_CONCAT ( ',' 
-italic_def 
‘bold_italic_def ) ); 
Finish the font load and definition escape sequence. 


$STR_APPEND ( TARGET work string 
STRING = SSTR_CONCAT ( ZCHAR(escape), "\' ) ); 


Write the string. 


Ok dd ed ed ed 
vuvuvv 


write escape sequence (work_string) 


Be Se Se Se Se ee Oe Se Se OF Se Be Se Se Ge Se Se SH Se Oe SHS SH Se SESH Se SH Se SH Se Se ae See tee 
a a nk a ed od od = = 2 = 8 = 8 Ls 3 I 
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o- 


| <ESC> C Pn t !Pn = form Length (pixels) 


‘ 
SSTR_COPY ( TARGET = york string 
»STRING = SSTR_CONCAT ( 'C', SSTR_ASCII(.decslpp), ‘'t' ) ); 


write _escape_sequence (work_string); 


ige 

ie 
3 : 

‘ Write Set Lines Per Physical Page escape sequence. Format: 
8 

539 

540 


<ESC> C Pn ; Pm 


' 

' 

i 

! Pn = top margin (pixels) 
Pm = bottom margin (pixels) 
$STR_COPY (¢ TARGET work_strin 


STRING = $STRTCONCAT ( 'C* 
o$STR_ASCII(. top_margin) 


-$8TR_ASCII(. bottom margin) 
s* : 


vuvvV 


write_escape_sequence (work_string); 
! 
Write Left and Right Margins escape sequence. Format: 


<ESC> C Pn ; Pms 


Pn = Left margin (pixels) 
Pm = right margin (pixels) 


! 
' 
' 
' 
' 
$STR_COPY ( TARGET = work_strin 
STRING = S$STR_CONCAT ( ‘C* 
o$STR_ASCII(. Left_margin) 


$STR_ASCII(.right_margin) 
, a 2 2 


Be Se Oe Se Se Ge Se Se Se Be Se Se Oe Se Fe Se Oe G8 Sse Oe Se Se Be Ge SH Se Oe GHGs Se Se SESH Se Shee See ee Sees Sees 
ee ee ee eee ee ee 
vuvvv 


POPIPOPINIPYPININININYINININYININPYNINPININININIPIND 


write_escape_sequence (work string); 


Write Top and Bottom Margins escape sequence. Format: 


11 
Digests and distributes command Line informatio 18-Sep-1984 90: 13:30 AX-11 Bliss-32 ae 
Disable output and enable ‘‘quick"’ processing 14-Sep-1984 15:06: RUNOFF ..SRCJDOOPTS .BLI; 
: 1471 157 
; 14 1 8 ! Write the sequence to load the penance Stee module to allow the user to 
3; 147 1 of ! redefine the parameters just set. It i§ assumed that initially, for the 
> 1474 157 ' normal user, this module will be a null module; i.e. it will not contain 
3 1475 1280 ! anything. However, its reference here assumes that it will be present in 
3 1008 : 4 } the Library. 
3 Ve 1388 ! This sequence is known as an OSC ESCAPE SEQUENCE. 
3; 1480 1585 IF .rno_cmd Crno$v_ln01_header] ! Only process & output header if it 
: 1481 1586 THEN ! was not suppressed by the user. 
; et 1587 BEGIN 
3; 14 P 1586 $SSTR_COPY ( TARGET = york string 
> 1484 P 1589 «STRING = SSTR_CONCAT ( ‘JVMS;1;DSRSPAGE_SIZE' 
> 1485 P 1590 ; . *CHAR (escape) 
> 1486 1591 A) ae a $ 
> 1487 1336 3 ' ; 
>; 1488 1593 4 write_escape_sequence (work_string) 
3: 1489 1594 2 ND; 


ee 


45 
45 
45 
45 


ARAVLS 


4E 
4E 
4E 
4E 


2c 


49 
49 
49 
49 


as 


Ot kk kd tt tt COO 
St | QOOTDTOCOOCOOCOOOOOONDO 
NOUS WN —"OODNOUS WN "OOOO 8 ® 


oc 


—PoORNoPononononononofornoporopornororororrrnrn ov 


ow 
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processing 14-Sep- 
! 
Write Default Font Invocation escape sequence. Format: 


! <ESC> C *2 m 

$STR_COPY (TARGET = work string, STRING = '[12m' ); 
write_escape_sequence (work_string); 

! Write Vertical Position Absolute escape sequence. Format: 
<ESC> CO d 


SSTR_COPY (TARGET=work_string, STRING = 'COd' ); 
write_escape_sequence Cwork_string); 


! Force a formfeed record to tell the print symbiont to reset its Line 

' counters. This is a HACK made necessary because VMS-Land won't provide 
! a better method to accomplish the same end. 

phan_lines_tp = .phan_lines_tp + 1 ! Count one Line of output 


END; 'End of write_ln01_info 


-PSECT S$PLITS,NOWRT,NOEXE,2 


50 00094 P.AAT: . ASCII \P\ 
4C 00095 P.AAU: <ASCII \L\ 
45 00096 P.AAV: .ASCIi \E\ 
54 4E GF 46 246 52 53 44 00097 P.AAX: <ASCII \DSRSFONT_T\ 
54 4E 4F 46 24 52 53 44 O00A1 P.ABA: ASCII \DSRSFONT~B\ 
54 GE 4F 46 24 52 53 44 QOOAB P.ABD: -ASCII \DSRSFONT— 
54 4E 4F 46 24 52 53 44 000B5 P.ABG: ASCII \DSRSFONT~BI\ 
54 4E 4F «446 «(24 «5 33 44 9000 P.ABJ: ASCII \DSRSFONT-DEFINE_T\ 
54 4E GF 46 24 52 33 a4 90001 P.ABM: .ASCII \DSRSFONT_DEFINE_B\ 
54 4E 4F 46 24 52 58 44 OO0F2 P.ABP: .ASCII \DSRSFONT_DEFINE_I\ 
Vv 
54 4E 4F 46 24 52 33 44 00F3 P.ABS: ASCII \DSRSFONT_DEFINE_BI\ 
38 31 38 53 4D 26 5D o10s P.ABU: .ASCII \JVMS;1;\ 
54 4E 4F 46 24 52 44 O010C P:ABY: <ASCII \DSRSFONT_LOAD.\ 
2c OO1iA P.ABZ: .ASCII \,\ 
€ 0011B P.ACA: ASCH \\ 
€ OO11C P.ACG: ASCII \i\ 
€C 0011D P.ACH: <ASCII \.\ 
2c 54 53 24 49 53 4E 41 OO11E P.ACK: ASCII \ANSISST,\ 
C 4 P-ACM: ASCII \,\ 
€ 00127 P.ACQ: ASCII \.\ 
C 00128 P-ACR: <ASCII \;\ 
1B 00129 P.ACW: <ASCII <$3? 
C OQO12A P.ACX: <ASCII <92> 
B 00108 P.ADC: <ASCII \C\ 
4 0012C P.ADD: ASCII \t\ 


AX-11 Bliss-32 V4.0-74 
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~PSECT SOWNS,NOEXE,2 
18 


0006C S$STRSSTRING: 
ADDRESS 


0074 $STRSSTRING: 


O78 


ADDRESS 
0084 $STRSSTRINGO: 

“ADDRESS 

;ADDRESS 


oS Ya 
C SSTRSSTRINGO: 


“ ADDRE 
OB4 SSTRSSTRINGO: 


- WORD 
BYTE 
«WORD 
BYTE 
OAC SSTRSSTRINGO: 
- WORD 
-BYTE 
» WORD 
-BYTE 
«WORD 


O7C $STRSSTRING: 
009C $STRSSTRINGO: 
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ADDRESS P.ADD 


AX=11 Bliss-32 V4.0-74 
RUNOFF .SRCJDOOPTS.BLI; 


00000000" 00130 : 
860% 130 SSTRSSTRINGO: 
“WORD 1 
01 : or 6 -BYTE 14, 1 
00 090 ' 001 “ADDRESS P.ADJ 
1 0013C SSTRSSTRING2: 
-WORD 1 
01 0 136 “BYTE 14, 1 
00 090 ' 0014 “ADDRESS P.ADK 
00 144 SSTRSSTRINGS: 
1 14 Byte 16 1 
0000088" a0148 “ADDRESS P.ADL 
0001 0014C SSTRSSTRINGO: 
.WORD 1 
01 0 O14 7 14, 1 
00000006" 0015 “ADDRESS P.ADS 
0001 00154 $STRSSTRING2: 
“WORD 1 
01 OF 00156 . 14, 
00000000' 00158 “ADDRESS P.ADT 
0001 0015C S$STRSSTRING4: 
.WORD 1 
01 O€ 00156 ; 14, 1 
00000000 0016 “ADDRESS P.ADU 
0014 00164 $STRSSTRINGO: 
«WORD 20 
01 OF 00166 ’ 14, 1 
00000000" 00168 -ADDRESS P.AEB 
0001 0016C SSTRSSTRING!: 
“WORD 1 
01 OF O016E : 14, 
00000000" 00170 “ADDRESS P.AEC 
0001 00174 SSTRSSTRING2: 
“WORD 1 
01 3 00176 ¥ 14, 
00000000 00178 “ADDRESS P.AED 
0004 0017C S$STRSSTRING: 
.WORD 4 
01 OF 0017E <BYTE 14, 1 
00000000' 00180 “ADDRESS P.AEH 
0003 00184 $STRSSTRING: 
1 1 BYTE 4 1 
00900008" $0188 “ADDRESS P.AEI 
.EXTRN XSTSCOPY, STRSFAILURE 
"EXTRN XSTSAPPEND, XSTSJOIN 
"EXTRN XSTSASCII 
.PSECT $CODE$,NOWRT,2 
OFFC 00000 WRITE_LNO1_INFO: 
“WORD Save R2,R3,R4,K5.R6.R7,R8.R9.R10,R11 
B 000G EF 9E 002 MOVAB STRSEAILURE , R11 
A 0 ' EF 9€ OVAB STRSSTRING, R10 
9 G EF 9E 00010 MOVAB FRA+4, R 
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output and enable ‘‘quick’’ processing 


3¢ AE 0206000 
34 AE 020E00 
2C =AE 020E00 
24 AE 020E00 
1C AE 020E00 
14 AE 020E00 
OC AE 020E000 
04 AE 020E0000 
02060006 
08 000000006 


EF 04 


000000006 
54 000000006 


54 000000006 
00010000 
04 

OE 52 
000000006 
000000006 
000000006 


03 52 
08 000000006 
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43:39 AX-11 Bliss-32 V4.0-74 
RUNOFF ..SRCJDOOPTS.BLI; 


weerioser, TEXT_FONT 
Me. +4 
] Tex F 6, 6, BOLD. FONT 
aot e ok 36. ITALIC_FONT 
ITA L FONT+4 
#34 736, 80 BOLD. ITALIC _FONT 
eae aie Text DEF 
TEXT bere +4 
#34471 36, BOLD_DEF 
3 4471 36, J ITALIC_DEF 
pat 1936 BOLD. ITALIC _DEF 
BOLD ITALIC 
434471936 


€4 RIGHT 
#56, pixece” NPER.. LINE_SPACING 


#4, #4, GCA+208, #5 
#13, RIGHT_SHIFT 


rT) RIGHT SHIFT 
#35. P XECS_PER_LINE_SPACING 


HAN+ 
PIXELS _PER_LINE_SPACING, PHAN+8, DECSLPP 
PIXELS PER_LINE_SPACING, PHAN+36, DECSLPP 
#1 MARGIN 

DE ESL P= BOTTOM _MARGIN 

roSste. Rien _MARGIN 

RNO_CM 

#5, 82(R2), 7$ 

R GH snItt. PHAN+20 

Ae B5 (RO) By 

2. BHANS4E 

RCRD). 


GCA+209, 10$ 
RSTARGET 


TARGET 
STRING 


XSTSCOPY 
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11 
DOOPT Digests and distributes command Line informatio 1b-Se -1984 215: AX-11 Bliss-32 V4.0-74 
voe-000 Disable output and enable mquick’” processing 122808- 1384 99 42509 RUNOFF .SRC DoOPYS:6L 1: Page 435 
05 000000006 EF 04 11 CMPZV #4, #4, GCA+208, #5 ; 1397 3 
% 8 1 BNEQ 12$ : ; 
B DD 001 PUSHL R11 : 1399 ; 
E 04 00129 LRL -(SP) : : 
08 AE 9F 00128 PUSHAB WORK STRING : : $ 
1 AA 9F 001 : PUSHAB $STRSSTRING : ; 
7E 04 001 CLRL -(SP) : - @ 
000000006 EF FB 00133 CALLS #5, XSTSAPPEND : 3 
78 52. A E1 0013A 12$: BBC #3, 82(R2), 13S + 1404 3 
18 AA SF Ola) PUSHAB $STRSSTRINGO Mess 
000000006 EF 2 FB 00144 CALLS XSTSJOIN : : : 
B DD 00148 PUSHL : : 
7E D4 0014D CLRL -(SP) : : 2 
48 Ag OF O014F PUSHAB $STRSTARGET : a | 
50 dD 00152 PUSHL RO : $6 
4: D4 00134 CLRL -(SP) : ee | 
000000006 EF 0S FB 00156 CALLS #5, XSTSCOPY : Ae | 
5E DD 0130 >USHL + 1415 : é 
20 AA 99F 0015F PUSHAB $STRSSTRINGO : : 
000000006 EF 02 FB 0162 CALLS #2, XSTSJOIN ; : 
5B DD 0016 PUSHL R11 : ; 
7E 04 00168 CLRL -(SP) : : 
40 AE oF 0016p PUSHAB $STRSTARGET 3 [2 
50 DD 00170 PUSHL RO : 2 
7E D4 00172 CLRL -(SP) : a 2 
000000006 EF 05 FB 60174 CALLS #5, XSTSCOPY : eS | 
E DD 00178 PUSHL : 1418 sa 
: 28 AA 9F 0017D PUSHAB $STRSSTRINGO : 5-4 
0O00000G EF 02 FB 00180 CALLS #2, XSTSJOIN : 2 
5B DD 00187 PUSHL R11 : : 3 
7E 04 00189 CLRL -(SP) : : 
38 AE 9F 0018B PUSHAB $STRSTARGET ; a 
50 DD 0018E PUSHL RO : ee 
7E 04 00190 CLRL -(SP) : oe 
000000006 EF 05 FB 00192 CALLS #5, XSTSCOPY : e 2 
5E DD 00199 PUSHL Pp + 1421 : g 
30 AA 9F 0019B PUSHAB $STRSSTRINGO ; : 
000000006 EF 02 FB O019E CALLS #2, XSTSJOIN : oe | 
5B DD OO1A PUSHL R11 : 3 
7E 04 OO1A7 CLRL -(SP) : : 
30 AE 9F 001A9 PUSHAB $STRSTARGET : : 
50 DD OO1AC PUSHL RO : : 
4: D4 OiA CLRL -(SP) : : 
000000006 EF Q FB 0018 CALLS #5, XSTSCOPY ; : 
E bb 00187 13$: PUSHL > 1428 : 
38 «AA OOF 90189 PUSHAB $STRSSTRINGO : 3 
000000006 EF 02 FB 0018 CALLS #2, XSTSJOIN : 3 
B DD 001C PUSHL R11 ; ; 
E p4 1¢ CLRL -(SP) : : 
28 «AE «OOF 001C PUSHAB $STRSTARGET ; 3 
50 DD OO1CA PUSHL R : : 
i: D4 001CC CLRL -(SP) : 3 
00000000G_ EF 9 FB OO1C CALLS #5, XSTSCOPY 3 : 
E DD 001D PUSHL + 1431 3 
40 AA 9F 001D PUSHAB $STRSSTRINGO : 3 
00000000G_ EF 02 FB OO1DA CALLS #2, XSTSJOIN 3 : 


K 11 
S Digests and distributes command Line informatio jon~zen~ 138% 99 43:30 AX-11 Bliss-32 V4.0-74 Page 37 
v04-000 Disable output and enable ‘‘quick" processing 14-Sep-1984 06: RUNOFF ..SRCJDOOPTS.BLI; (27) 
B DD OO1E PUSHL R11 ; : 
: b4 1E CLRL. = = (SP) : : 
20 AF F OO1E PUSHAB SSTRSTARGET : ; 
3 DD OO1E PUSHL R : ; 
: D4 OO1EA CLRL. = = (SP) : ; 
000000006 EF 95 FB 1E CALLS #5, XSTSCOPY Ske ; 
48 AA oF 1F PUSHAB $STRSSTRINGO ; | ; 3 
000000006 EF f FB Oo1EE CALLS #2, XSTSJOIN : : 3 
E D4 00201 CLRL. = (SP) : ; : 
18 AE OOF 0 05 PUSHAB SSTRSTARGET : | 
50 DD 6 PUSHL R : 3 3 
43 D4 0020 CLRL. = (SP) : | 
000000006 EF FB OO20A CALLS #5, XSTSCOPY : _% 
— OD 09 11 PUSHL : 1437 | 
50 AA 9F 00213 PUSHAB $STRSSTRINGO : s 3 
00000000G_ EF ¢ 4 44 16 cats ae XSTSJOIN : : i 
7E D4 00 1F CLRL. = (SP) : 3 § 
10 AE 9F 00221 PUSHAB $STRSTARGET : 2.4 
50 DD 99 4 PUSHL R : | 
7E D4 00226 CLRL. = (SP) : . 5 
000000006 EF 05 FB 00228 CALLS #5, XSTS$COPY : es 
5B DD O02eF PUSHL R11 + 1471 oR 
7E D4 00231 CLRL. = (SP) : . 3 
08 AE 9F 00233 PUSHAB $STRSTARGET : | 
58 AA 9F 00236 PUSHAB $STRSSTRING ; | 
7E D4 00239 CLRL =(SP) : | 
000000006 EF 0S FB 00238 CALLS #5, XSTSCOPY : oe 
69 52. A2 03 €1 00 42 BBC #3, 82(R2) + 1473 ; 3 
70 AA SF 0024 PUSHAB $STRSSTRINGS + 1484 : s 
3C = AE sO9F O024A PUSHAB $STRSSTRINGS ; 4 
68 AA 9F 00240 PUSHAB $STRSSTRING2 ; i 4 
4C AE 9F 00 20 PUSHAB $STRSSTRINGI ; 3 
60 AA 9F 0025 PUSHAB $STRSSTRINGO : 
000000006 EF 3 FB 0 36 CALLS >, STSJOIN ; 
7E D4 0025F CLRL. = (SP) ; 
08 AE 9F 00261 PUSHAB WORK_STRING ; 
50 DD 99 64 PUSHL RO ; 
ze D4 00 66 CLRL.  - =(SP) F 
sppeeigoraes 5 000000006 iF £8 F BLBES TRS Saat + 1489 
itd CA F 6 of PUSHAB Se RSSTRING + 1495 
e¢ AE 9F OO27A PUSHAB RSSTRING : 
8 AA 9F 0027D PUSHAB RSSTRING F 
3C «= AE OF 00 80 PUSHAB RSSTRINGO : 
000000006 EF 4 FB 0 3 CALLS STSJOIN ; 
7E p4 6 C CLRL. = = (SP) ; 
08 AE F PUSHAB WORK_STRING ; 
3 DD 1 PUSHL : 
EOE boas Sets BS) XSTSAPPEND : 
a 58 DD 0029C 14%:  PUSHL R11 : 1499 
E 04 0029E CLRL. = = (SP) : 


ae 


1" | 
DOOPTS Digests and distributes command Line informatio 18-56 1984 00:15: AX-11 Bliss-32 V4.0-74 DSPE 
v04-000 Disable output and enable ‘‘quick’’ processing 1 ~300 138% 90: baios RUNOFF .SRCJDOOPTS.BLI; Page 235 VO4= 
AE 9F OO2A PUSHAB WORK_STRING : 
008s cA 9F p nS PUSHAB $STRSSTRING : 
: 04 002A CLRL = = (SP) : 
000000006 EF 05 FB 002A9 CALLS #5, XSTSAPPEND : 
1 AE 9F 06280 15$:  PUSHAB $STRSSTRING : 1510, 
SSMS FETAEaTaINe | 
000000006 EF : FB OO2BA CALLS i XSTSJOIN : 
B DD 002c1 PUSHL R14 : 
E p4 0 cs CLRL = (SP) : 
08 AF F 002C PUSHAB WORK_STRING : 
3 DD 002¢8 PUSHL R : 
: D4 OOOCA CLRL. = (SP) : 
000000006 EF 05 FB 00 ce CALLS #5, XSTSAPPEND F 
7 000000006 EF £9 02D BLBC  GCA+209, 16$ + 1515 
08 AE OF 09 DA PUSHAB $STRSSTRING3S + 1521 
0040 CA 9F 002DD PUSHAB $STRSSTRING2 : 
18 AE 9F 00261 PUSHAB $STRSSTRING1 : 
0098 CA 9F 002E4 PUSHAB $STRS$STRINGO F 
000000006 _ EF 04 FB 00268 CALLS #4, XSTSJOIN ; 
B OD Oger PUSHL R14 ; 
7E D4 00 F1 CLRL.  =(SP ; 
08 AE 9F O02F3 PUSHAB WORK_STRING ; 
50 DD 002F6 PUSHL RO F 
7E D4 002F8 CLRL. = (SP) : 
000000006 EF 05 FB OOQFA CALLS #5, XSTSAPPEND : 
00B0 CA 9F 00301 16$:  PUSHAB $STRSSTRINGI t 1526 
0OA8 CA 9F 00305 PUSHAB $STRS$STRINGO ; 
000000006 EF 02 FB 00309 CALLS #2, XSTSJOIN ; 
5B DD 00310 PUSHL R11 : 
7E 04 00312 CLRL (SP) ; 
08 AE 9F 00314 PUSHAB WORK_STRING : 
50 DD 00317 PUSHL RO ; 
7E D4 00319 CLRL. = (SP) : 
000000006 _ EF 0S FB 00318 CALLS #5, XSTSAPPEND ; 
08 Ad D4 003 CLRL. —- FRA+12 : 1530 
FC OQ 0c a9 H 00325 MOVAB FRA+16, FRA : 
69 FC AQ p 003 A MOVL FRA, FRA+4 : 
53 6— 3¢ 03 E MOVZ2WL WORK_STRING, LEN ; 
5} 04 AE dO 00331 MOVL | WORK STRING+4, PTR : 
00 89 1B 90 00335 MOVE #27, aFRA+4 ; 
69 D6 00339 INCL  FRA+4 ; 
08 A9 06 00 INCL FRA+12 F 
50 D4 0 F 7 ae ; 
09 1 0034 BRB 18$ : 
00 B89 1 90 00342 17$:  MOVB (PTR)+, aFRA+4 : 
69 06 00 46 INCL  FRA+4 ; 
08 Ad D6 0034 INCL -FRA#12 F 
F3 50 53 F3 00348 18$: § AOBLEQ LEN, I, 17$ ; 
B DD 0034F PUSHL #11 : 
000000006 _ EF 1 FB 0 1 CALLS #1, CLH ; 
E D4 8 19%: CLRL 0s = §P) : 1539 
4 bp A PUSHL 0D cSLPP ; 
7E 0903 BF 3C C MOVZWL # -(SP) F 
000000006: EF 3 FB 00361 CALLS. @# KSTSASCII F 
00c0 cA 9F 00368 PUSHAB $SfRSSTRING : 
0 DD 0036C PUSHL RO : 


M11 
DOOPTS Digests and distributes command Line informatio 16-Sep-1984 00:15:30 AX-11 Bliss-32 V4.0-74 
v04-000 Disable output and enable maar ck processing 12286-1382 99:08:81 RUNOFF .SRCIDOOPTS.BL1; Page 43) 
00B8 CA 9F 00 PUSHAB $STRSSTRINGO : 
000000006 EF 3 FB t CALLS #3, XSTSJOIN : 
B DD 0037 PUSHL R11 : 
E p4 7B CLRL = (SP) : 
08 AF F 00370 PUSHAB SSTRSTARGET : 
oe BD Bb agS CREE NASP) ’ 
00000000G_ EF 05 FB 4 CALLS #5, KSTSCOPY : 
08 Ad D4 B CLRL. = FRA+1 + 1541 
FC AQ 0c Ag i 8 MOVAB FRA+16, FRA : 
9 FC AQ p 9 MOVL FRA, FRA+4 : 
3 6E ¢ 9 MOVZWL WORK_STRING, LEN : 
1 046 AE D 9A MOVL  WORK“STRING+4, PTR : 
00 89 1B 90 00 i MOVB #27, aFRA+4 : 
69 06 003A INCL  FRA+4 : 
08 Ad D6 09 AG INCL FRA+12 : 
50 D4 003A7 CLRL : ; 3 
09 11 003A9 BRB 1$ : te 
00 B89 81 90 O3AB 20$:  MOVB (PTR)+, aFRA+4 : ; 3 
69 D6 OO3AF INCL  FRA+4 : 
08 a9 Dg 00381 INCL _FRA#12 : 
F3 50 53 FF 00384 21$:  AOBLEQ LEN, I, 20$ ; 
0B DD 00388 PUSHL #11 : 
000000006 EF 01 FB OO3BA CALLS #1, CLH ; 
7E D4 003C1 et : 1556 
58 bp b05¢3 PUSHL TOP_MARGIN : F 
7E 0903 BF 3C 003C5 MOVZWL #2307, -(SP) : ; 
000000006 EF 03 FB OO3CA CALLS #3, XSTSASCII : ; 
54 50 DO 00301 RO, R4 : ; 
ze D4 003D4 CLRL =_ = (§P) : % 
5 bp 00306 PUSHL BOTTOM_MARGIN : 4 
7E 0903 BF 3C 00308 MOVZWL #2307, -(SP ; 
000000006 EF 03 FB 0030D (ALLS #3, XSTSASCII ; 
0008 CA 9F O03E4 BUSHAB $STRSSTRINGS ; 
50 DD 00368 PUSHL : 
0009 CA 9F OO3EA PUSHAB $STRSSTRING2 ; : 
54 DD OEE PUSHL ; : 
00c8 CA OF 003F PUSHAB $STRS$STRINGO ; F 
000000006 _ EF 95 FB O03F4 CALLS #5, XSTSJOIN : ; 
B DD 003FB PUSHL R11 : ; 
7E D4 003FD CLRL. = (SP) ; Yok 
08 AE OF OO3FF PUSHAB $STRSTARGET : oS 
3 DD 00402 PUSHL RO : 
D4 004 CLRL. = (SP) : 
000000006 EF 05 FB 004 CALLS #5 KSTSCOPY : 
08 A9 b4 0040D CLRL. —- FRA#1 : 1558 
FC OQ oc Ag 4 41 MOVAB FRA+16, FRA ; 
69 FC OQ p 41 VL FRA, FRA+4 : 
3 6E 3¢ 0041 MOVZWL WORK_STRING, LEN ; 
51 04 AE 9 aie MOVL WORK-STRING*4, PTR ; F 
00 89 1 4 MOVB #27, aFRA+4 F 
69 06 00424 INCL  FRA+ ; 
08 Ad D6 004 $ INCL FRA+12 ; 
3 4 004 CLRL 3 
1 00428 BRB 3$ ; 
00 «Bg 1 90 00420 22$: Move PTR)+, @FRA+4 F 
69 D6 00451 INCL FRA+4 ; 


—————___—_—_—__ 


N11 
DOOPT Digests and distrioutes command Line informatio 16-Sep-1984 215: Ax-11 Blis V4.0-74 

v0e~000 Digable output and enable ‘quick’ processing 12286071382 99:08:04 RUNOFF’ SREIDOG OPTS. ae Page $9 

08 Ad D6 00433 INCL _— FRA#12 : 

000000006 EF 1 FB 004 CALLS #1, CLH : 
E D4 0044 CLRL 0s = (SP) + 1573 

36 bd 44 PUSHL LEFT_MARGIN : 

7E 0903 BF 3C 0044 MOVZWL #9307 -(SP) : 

000000006 EF 3 FB ae ALLS XSTSASCII : 

3 0D Bee OVL — : 

: D4 426 LRL = = §P) : 

5 bo 045 PUSHL RIGHT_MARGIN : 

7E 0903 BF C 045A MOVZWL } 077 =(SP) : 

000000006 EF 3 FB O045F CALLS X$TSASCII ; 

00FO cA 9F 00466 PUSHAB setrestRines : 

0 DD 0046A PUSHL ; 

00E8 CA OF d4g¢ PUSHAB $STRS$STRING2 : 

53 DD 0047 PUSHL : 

00EO CA 9F 00472 PUSHAB $STRSSTRINGO ; 

000000006 EF 05 FB 00476 CALLS #5, XSTS$JOIN : 

5B DD 0047D PUSHL R11 : 

7E D4 0047F CLRL. = (SP) : 

08 AE 9F 00481 PUSHAB $STRSTARGET : 

50 DD 00484 PUSHL R : 

7E D4 00486 CLRL. = (SP) : 

000000006 EF 05 FB 00488 CALLS #5. XSTSCOPY : 
08 AD D4 0048F CLRL —- FRA+12 + 1575 

FC AO 0C Ad 9E 00492 MOVAB FRA+I6 FRA : 

69 FC Ad DO 00497 MOVL FRA, F Ask ; 

53 6E 3C 0049B MOVZWL WORK_STRING, LEN ; 

51 04 AE dO 00496 MOVE WORK“STRING+4, PTR F 

00 89 1B 90 004A MO #27, aFRA+4 ; 

69 D6 O04AG INCL  FRA+ : 

08 AD D6 004A8 INCL FRA+12 : 

50 D4 004AB oY aS | ; 

09 11 004AD BRB 25$ F 

00 89 81 90 OO4AF 248 MOVB  (PTR)+, @FRA+4 : 

69 D6 00485 INCL  FRA+4 ; 

08 a9 Dg 0048 INCL - FRA#12 ; 

F3 50 53 F3 00488 25$ AOBLEQ LEN, I, 24$ ; 

0B DD 0048C PUSHL #11 : 

000000006 EF 1 FB O4BE CALLS #1, chy : 
58 52. A 2 £1 004C BC #2. 82(R2), 28$ > 1585 
0108 CA 9F OO4CA PUSHAB $STRSSTRING2 : 1591 

0109 CA OF O4cE PUSHAB $STRSSTRING! ; 

OF CA 9F 0040 PUSHAB SSTRSSTRINGO : 

000000006 _ EF 03 FB 00406 CALLS #3, XSTS$JOIN ; 

5B DD 00400 PUSHL R11 : 

7E D4 OO04DF CLRL. = (SP) ; 

08 AE 9F 004E1 PUSHAB $STRSTARGET ; 

5 DD O04E4 PUSHL RO ; 

D4 O4E6 CLRL.  =( SP) F 

000000006 _ EF 05 FB 004E CALLS #5, XSTSCOPY F 
08 A9 p4 EF CLRL. ss FRA#1 > 1593 

FC OAD C Ag : aFe MOVAB FRA+16, FRA : 

69 FC OAD p 4F OVL FRA, FRA+4 : 

52 6E 3C 004FB MOVZWL WORK St RING, LEN ; 

51 04 AE DO O04FE OVL WORK STRING+4, PTR F 


ee a 


12 
Digests and distributes command Line informatio 16-Sep-1984 00:15:30 AX-11 Bliss-32 V4.0-74 Pa 1| et] 
Disable output end enable ‘quick’ processing 12-80-1382 99 08:04 RUNOFF .SRCJDOOPTS.BLI; (29) | 
00 89 18 90 MOVB #27, @FRA+4 : 
6 D6 INCL  FRA+4G : 
08 AD D INCL  FRA+12 : 
50 04 00508 CLAL } : 
09 11 00 OD BRB 7$ : 
00 B89 1 90 0050F 26$:  MOVB (PTR)+, aFRA+4 : 
69 D6 0 13 INCL  FRA+4 : 
08 a9 D6 51 INCL FRA#12 : 
F3 50 52 F3 00518 278: AOBLEQ LEN, I, 26$ : 
0B oD Opic PUSHL #11 : | 
000000006 EF 1 FB 0051 CALLS #1, CLH : 
B p> 00525 288: —BUSHL Rif * 1600 | 
E D4 CLRL = (SP) : 
08 AE 9F 00529 PUSHAB $STRSTARGET : 
0110 CA 9F 09 C PUSHAB $STRSSTRING ; 
7E D4 00530 CLRL = = (SP) : 
000000006 EF 05 FB 0032 CALLS #5, XSTSCOPY : 
08 Ad D4 00539 CLRL. —s FRA#12 + 1601 
FC OAD OC Ad 9E 0053c MOVAB FRA+16, FRA : 
69 FC AQ 00 00541 MOVL FRA, FRA+4 ; 
52 6E 3¢ 00545 MOVZWL WORK_STRING, LEN ; 
5] 04 AE dO 00548 MOVL  WORKTSTRING?4, PTR ; | 
00 89 1B 90 0054¢ MOVB #27, aFRA+4 : | 
69 D6 90990 INCL  FRA+4 : 
08 Ad D6 09¢ INCL FRA+12 ; 
50 D4 0055 CLRL H : 
9 11 00557 BRB 0$ ; | 
00 B89 1 90 00559 29$: MOVB (PTR)+, aFRA+4 : 
69 D6 0055D INCL FRA+4 3 
08 AY D6 0O55F INCL FRA+12 ; 
F3 50 52 F3 00562 30$: § AOBLEQ LEN, I, 29$ : 
0B DD 00566 PUSHL #11 : 
000000006 EF 01 FB 00568 CALLS #1, CLH ; | 
5B DD 0056F PUSHL R14 ; 1608 | 
7E 04 00571 CLRL. = = (SP) ; 
08 AE 9F 00573 PUSHAB $STRSTARGET F 
0118 CA 9F 00576 PUSHAB $STRSSTRING : | 
7E D4 O057A CLRL = = (SP) ; 
900000006 EF 0S FB 0057¢ CALLS #5, XSTSCOPY : 
08 Ad D4 0098 CLRL = FRA#12 > 1609 
FC AQ 0c a9 i 0586 MOVAB FRA+16, FRA : 
69 FC OAD p 00588 MOVL FRA, FRA+4 : 
52 6E 3C 0058F MOVZ2WL WORK_STRING, LEN ; 
51 04 AE b9 099¢ MOVL WORK -STRING#4, PTR : 
00 89 1B MOVB #27, a@FRA+4 : 
69 D6 0059A INCL FRA+4 ; 
08 a9 Dds 0059C¢ INCL FRA+12 F 
50 04 099% CLRL ; | 
09 11 005A1 BRB 2$ ; 
00 B89 81 90 OoA3 31$:  MOVB  (PTR)+, aFRA+4 ; | 
69 D6 OOSA INCL FRA+4 $ | 
08 a9 0g OdA9 INCL  FRA+12 ; 
F3 50 52 F3 OOSAC 32$: AOBLEQ LEN, I, 318 : 
08 DD 08 PUSHL #11 ; 
000000006 EF 1 FB : B CALLS #1, CLH ; 
000000006 EF 06 38 INCL PHAN+12 : 161 
04 005BF RET > 161 


Size: 3707 code + 732 data bytes 
un Time 02:43.8 


3 Bleeseg. ites: 05: 360.  . 
3 Lines/CPU Min 59 

3 Lexenes/CPU-in: 97016 

: 1,0 Used: 734 pages 
: — ation Complete 


| 
DOOPTS Digests and distributes command line informatio 1$-s6 -Sep-1984 09: :15:30 AX-11 Bliss-32 V4.0-742 Page 62 
v04-000 Disable output and enable ‘‘quick’’ processing 14-Sep-1984 13:06:01 RUNOFF .SRCJDOOPTS.BLI;1 aot! 
; Routine Size: 1472 bytes, Routine Base: S$CODES + 08BB | 3 
; 1514 1618 1 END ‘End of module ; 
; 1515 1619 0 ELUDOM : 
; PSECT SUMMARY ‘ 
: Name Bytes Attributes : 
: SOWNS 396 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, See arioncas ‘ 
; SPLITS 336 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ‘ 
; SCODES 3707 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ‘ 
: Library Statistics ; 
Pe Geky ek en ee me Symbols o------- Pages Processing : 
3 File Total Loaded Percent Mapped Time ‘ 
3 _$255$DUA28:CSYSLIBIXPORT.L32;1 590 183 31 252 00:00.1 ; 
> 7$255$DUA28: CRUNOFF .SRCJDSRLIB.L32;1 1248 204 16 86 00:00.3 ; 
; COMMAND QUALIFIERS 3 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:DOOPTS/OBJ=0BJ$:DOOPTS MSRC$:DOOPTS/UPDATE=(ENH$:DOOPTS) : 

| 

| 
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